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Attached  is  an  Interim  Report  on  the  study,  "Computa- 
tional Package  for  Predicting  Pile  Stress  and  Capacity". 
The  report  is  written  by  Francisco  Jos^  Tejidor  of  our  staff, 
who  worked  under  my  supervision. 

The  package  PILE  promises  to  be  a  highly  useful  one  in 
the  design  and  installation  of  highway  bridge  piles.   It 
incorporates  three  elements:   static  analysis;  pile  driving 
equations;  and  wave  equation  analysis  (WEAP).   It  is  opera- 
tional on  the  IDOH  IBM  computer. 

An  interim  report  is  written  to  call  the  attention  of 
interested  parties  to  the  existence  of  the  computational 
package  (PILE).   The  final  project  report  will  follow  shortly, 
and  will  contain  a  number  of  elements.   Most  important  of 
these  will  be:   (a)   additional  comparisons  of  IDOH  case 
studies  with  PILE  predictions;  (b)  debugging  of  the  program 
as  it  is  used  by  IDOH;  and  (c)  some  modifications  to  make  the 
program  more  useful  and  efficient  in  the  routine  IDOH 
operation. 

Since  the  interim  report  is  voluminous,  it  is  recommended 
that  only  a  limited  number  of  copies  be  produced  in  full  length 
Chapters  3  through  6  are  detailed  summations  of  background 
material,  of  interest  to  only  a  few.   Deletion  of  this  portion 
of  the  report  (for  routine  distribution)  will  reduce  its  length 
by  about  150  pages. 


Presentation  of  PILE  listing,  input  form,  and  examples 
requires  about  100  pages.   It  is  presumed  that  any  serious 
reader  would  wish  to  have  all  of  the  program  in  full  detail. 

The  report  is  submitted  for  review,  comment  and  acceptance 
in  partial  fulfillment  of  the  referenced  study. 

Respectfully  submitted, 

C  ,  W .  Love  1 1 
Research  Engineer 
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HIGHLIGHT  SUMMARY 

A  computational  package  PILE  has  been  developed  in 
order  to  predict  the  ultimate  bearing  capacity  of  a  pile 
and  the  dynamic  stresses  generated  during  installation. 
The  ultimate  bearing  capacity  of  a  pile  which  determines 
its  static  behavior  is  derived  from  analytical  models  which 
are  dependent  on  subsurface  conditions,  pile  type,  method 
of  installation,  and  other  factors.   The  stresses  generated 
during  installation  which  will  characterize  the  dynamic 
performance  of  a  pile  in-situ  may  be  evaluated  using  a 
wave  equation  analysis.   The  main  objective  of  the  study  is 
to  afford  the  engineer  a  comprehensive  means  of  effectively 
designing  a  pile  foundation. 

The  ultimate  bearing  capacity  of  a  pile  in  cohesionless 
soils  is  governed  by  the  effective  stress  state  of  the 
surrounding  soil.   The  capacity  of  a  pile  in  cohesive  soils 
is  governed  by  the  rate  of  pore  pressure  generation  which 
affects  the  shear  strength  of  the  adjacent  soil.   If  the 
rate  of  load  application  is  such  that  pore  pressure  dissipa- 
tion is  rapid,  then  a  dr ained-e f f ec t ive  stress  analysis  may 


xvii  i 


be  appropriate,  otherwise  an  undrained-t ot al  stress  analysis 
is  conventionally  employed.   Since  pile  foundations  are  nor- 
mally constructed  as  groups,  the  settlement  and  efficiency 
of  a  pile  group  also  become  pertinent  variables. 

The  difficulties  incumbent  in  the  installation  of  piles 
may  be  alternately  treated.   The  dynamic  formulas  have  been 
found  to  be  fundamentally  flawed  and  consequent  predictabil- 
ity can  only  be  statistically  improved  on  a  regional  basis. 
A  wave  equation  analysis  of  pile  driving,  on  the  other  hand, 
affords  a  more  realistic  assessment  of  ultimate  load  -  final 
set  relationship,  driveability  of  a  pile  as  a  function  of 
the  equipment  employed,  and  stresses  generated  during 
Installation. 

Two  major  conclusions  may  be  drawn  from  initial  use  of 
the  computational  package.   First,  estimates  of  ultimate 
load  bearing  capacity  are  determined  with  reasonable  accu- 
racy.  Second,  depending  on  the  variation  of  parameters,  a 
wave  equation  analysis  of  pile  driving  will  render,  if  only 
qualitatively,  a  correct  assessment  of  difficulties  concomi- 
tant with  various  installation  procedures. 


INTRODUCTION 


Pile  foundations  are  often  used  to  transmit  the 
required  structural  loads  to  a  firm  layer  by  penetrating  the 
upper  weak  strata.   The  problem  of  pile  foundations  is  then 
twofold.   First,  the  designer  must  determine  the  depth  at 
which  the  pile  will  have  developed  sufficient  bearing  capa- 
city to  sustain  the  design  loads.   The  bearing  capacity  is 
developed  both  at  the  point  and  along  the  shaft  of  the  pile. 
Second,  the  designer  must  choose  an  efficient  and  economical 
means  of  installation. 

The  foremost  concern  is  the  determination  of  ultimate 
bearing  capacity.  The  present  study  will  review  recent 
advances  in  the  field.  The  breadth  of  the  study  is  deter- 
mined by  the  intended  generality  of  its  final  application. 
The  recommended  procedures  must  be  sufficiently  general  so 
as  to  be  applicable  to  most  commonly  encountered  soil  condi- 
tions, pile  types,  and  construction  practices. 

Construction  practices  exert  an  important  role  in  the 
determination  of  the  final  product.   Conventional  methods  of 
corroborating  design  requirements  in  the  field  will  be  dis- 
cussed.  Furthermore,  a  detailed  synthesis  of  improved 
analytical  techniques  will  be  presented.  The  advances  afford 
a  more  realistic  and  therefore  a  more  efficient  and 


economical  assessment  of  common  Installation  procedures. 

In  order  to  accomplish  the  task  of  a  pile  foundation 
design,  a  computer  program  will  be  devised  which  will  incor- 
porate in  a  comprehensive  manner  the  analytical  models 
necessary  to  investigate  the  static  and  dynamic  behavior  of 
a  pile.   The  major  objective  in  the  formulation  of  the  com- 
puter program  will  be  to  afford  the  designer  the  opportunity 
to  vary  parameters  with  relative  ease,  and  to  choose  those 
models  which  have  been  extensively  corroborated  with  field 
experience . 

Finally,  in  order  to  instill  confidence  in  the  applica- 
bility of  the  computational  package,  it  was  necessary  to 
test  the  program  against  a  series  of  published  pile  load 
test  results  and  case  histories. 

The  computational  package  should  therefore  afford  the 
designer  a  comprehensive  and  rational  means  of  evaluating 
the  static  and  dynamic  performance  of  a  pile. 

The  research  was  undertaken  under  the  sponsorship  of 
the  Indiana  Department  of  Highways  (IDOH)  and  the  Federal 
Highway  Administration,  and  was  coordinated  through  the 
Joint  Highway  Research  Project,  School  of  Civil  Engineering, 
Purdue  University.   It  is  primarily  intended  to  aid  the 
Bridge  Design  Engineer  and  the  Construction  Engineer  of  the 
IDOH  in  the  selection  and  placement  of  efficient  and 
economic  bridge  foundations  in  the  State  of  Indiana. 


CHAPTER  1 
PILE-SOIL  INTERACTION 

There  are  some  analogous  similarities  between  shallow 
foundations  and  deep  foundations.   In  both  cases,  the  foun- 
dation must  possess  sufficient  safety  against  bearing  and/or 
structural  failure  and  sufficient  protection  against  exces- 
sive deformations  under  working  loads. 

Although  there  are  some  obvious  similarities  in  these 
two  types  of  foundations,  there  are  however  some  distinct 
differences.   In  the  case  of  a  shallow  foundation,  the  soil 
under  the  foundation  base  is  normally  not  disturbed,  except 
for  changes  in  effective  stresses  developed  by  excavation, 
construction  of  the  footing,  and  possibly,  backfilling. 
However,  in  the  case  of  a  deep  foundation,  the  soil  about 
the  foundation  is  disturbed  to  some  degree.   The  degree  of 
the  disturbance  depends  on  the  soil  type  and  the  method  of 
placement  of  the  foundation.   For  bored  piles,  most  of  the 
change  occurs  around  the  shaft,  where  a  relatively  narrow 
zone  of  soil  surrounding  the  pile  undergoes  some  remolding 
due  to  soil  removal  during  construction.   Depending  also  on 
the  method  of  construction,  some  lateral  stress  relief  may 
occur  before  the  installation  of  the  pile.   In  the  case  of 
driven  piles,  significant  disturbance  occurs  in  the  soil 


about  the  shaft  and  at  the  base  of  the  pile.   The  effect  of 
the  disturbance  Is  essentially  dependent  on  soil  type.   Par- 
ticular soil  responses  to  disturbance  will  be  discussed  sub- 
sequently under  "Installation  Effects". 


Ultimate  Load 

Therefore,  as  for  shallow  foundations,  the  problem  is 
to  determine  the  ultimate  load  (Q  )  which  a  deep  foundation 
can  sustain.   The  ultimate  load  is  then  that  load  which  can 
cause  either  the  structural  failure  of  the  foundation  itself 
or  the  bearing  capacity  failure  of  the  soil.   Excluding 
buckling  and  bending  under  the  action  of  lateral  loads  and 
failure  caused  by  excessive  stresses  during  pile  driving, 
structural  failure  is  assume  to  occur  when  the  maximum  axial 
stress  in  the  shaft  exceeds  the  critical  yield  stress  for 
the  shaft  material.   This  condition  may  govern  the  design  of 
the  pile  for  virtual  point-bearing  foundations.   Otherwise, 
the  ultimate  load  is  determined  from  considerations  of  bear- 
ing capacity  failure  of  the  soil.   It  should  be  noted  that 
an  efficient  design  is  one  in  which  the  ultimate  structural 
capacity  of  the  pile  approximates  the  ultimate  bearing  capa- 
city of  the  soil. 

The  determination  of  the  ultimate  bearing  capacity  of 
the  soil  is  further  complicated,  since  it  is  rarely  clearly 
defined.   Unlike  shallow  foundations  for  which  the  mode  of 
shear  failure  (e.g.  general  shear,  local  shear,  or  punching 
shear  failure)  may  vary  with  the  soil  type,  rate  of  loading. 


and  other  factors,  deep  foundations  almost  exclusively  fail 
in  punching  shear  under  the  foundation  point,  accompanied  or 
preceded  by  direct  shear  failure  of  the  soil  along  the  foun- 
dation shaft  (Veslc,  1970).   However,  there  may  be  no  visi- 
ble collapse  of  the  foundation  and  no  clearly  defined  peak 
load.   For  this  reason,  several  ultimate-load  criteria  have 
been  proposed. 

These  criteria  are  often  based  on  considerations  of 
plastic  (irrecoverable)  or  total  (plastic  and  elastic)  set- 
tlement of  the  pile  under  the  test  load.   In  order  to  prop- 
erly apply  the  criteria,  it  is  necessary  to  understand  some 
of  the  essential  mechanisms  of  load  transfer  between  a  pile 
and  the  surrounding  soil.   It  has  been  found  that  full 
mobilization  of  shaft  resistance  requires  a  relative  dis- 
placement between  the  pile  shaft  and  surrounding  soil  of 
0.25  to  0.40  in.  (6  to  10  mm),  regardless  of  pile  size  and 
length  (Veslc,  1969).   Furthermore,  mobilization  of  ultimate 
point  resistance  of  a  pile  requires  a  displacement  of 
approximately  10  percent  of  the  pile-tip  diameter  for  driven 
piles  and  as  much  as  30  percent  of  the  pile-tip  diameter  for 
bored  piles  (Veslc,  1969).   In  addition,  in  order  to  reli- 
ably apply  the  aforementioned  criteria,  the  load-deformation 
curve  must  be  in  a  "plunging"  mode,  that  is,  in  a  rapid  con- 
stant rate  of  deformation  under  sustained  load. 

Fellenius  (1980)  discusses  nine  of  the  most  widely 
adopted  criteria.   It  should  be  noted  that  a  particular  cri- 
terion may  be  influenced  by  the  pile  load  test  conducted. 


Therefore,  the  ultimate  load  criterion  is  dependent  on  vari- 
ous contributing  factors,  and  not  solely  on  absolute  magni- 
tude of  plastic  or  total  limit  settlement. 

For  design  purposes  the  ultimate  load  is  conventionally 
separated  into  two  components,  the  shaft  or  skin  load  (Q  ) 
and  the  base  or  point  load  (Q  ).   The  sum  of  the  ultimate 
shaft  and  base  resistances  constitutes  the  ultimate  load 
capacity  (Q  ) : 


P     s 


(1.01) 


The  implicit  assumption  of  this  equation  is  that  the  shaft 
and  base  resistances  are  not  interdependent.   The  assumption 
is  not  strictly  correct  but  any  resulting  variance  is  insig- 
nificant for  most  practical  purposes  of  normally  propor- 
tioned piles  (Poulos  and  Davis,  1980).   Furthermore,  this 
equation  assumes  that  both  the  pile  point  and  all  points  of 
the  pile  shaft  have  moved  sufficiently  with  respect  to  adja- 
cent soil  to  develop  simultaneously  the  ultimate  point  and 
skin  resistance  of  the  pile.   Full  mobilization  of  the  ulti- 
mate capacities  necessitates  that  the  load  has  been  suffi- 
ciently transferred  to  the  soil. 

The  approach,  then,  which  makes  use  of  the  principles 
of  soil  mechanics  with  measured  or  assumed  soil  parameters 
is  commonly  termed  the  static  method  of  ultimate  load  capa- 
city of  piles  . 


Load  Transfer 
The  pile-soil  system  sustains  its  load  capacity  by 
transferring  the  load  to  the  adjacent  soil.   The  load 
transfer  at  ultimate  capacity  occurs  simultaneously  along 
the  pile  shaft  and  the  bearing  area  of  the  pile  point  and 
involves  a  mass  of  soil  extending  to  considerable  distances 
from  the  pile.   Therefore,  in  order  to  understand  the 
mechanics  of  load  transfer  in  each  particular  case  of  a  pile 
foundation,  it  is  necessary  to  consider  the  entire  pile-soil 
system  with  all  its  peculiar  features  as  they  relate  to  the 
geological  history  of  the  soil  strata,  and  the  effects  of 
installation  during  construction. 

It  is  not  surprising  that  the  mechanics  of  load 
transfer  between  the  pile  and  the  adjacent  soil  represent  a 
relatively  complex  phenomenon.   Some  parameters  affecting 
load  transfer  are  often  difficult,  if  not  impossible,  to 
express  in  numerical  terms.   Nevertheless,  some  numerical 
assessment  of  load  transfer  characteristics  of  a  pile-soil 
system  is  essential  for  settlement  computations  and  for 
rational  design  of  pile  foundations. 

The  true  distribution  of  the  load  transfer  can  only  be 
assessed  by  direct  measurements  at  discrete  points  along  the 
length  of  the  pile.   If  the  measured  axial  force  for  a  sin- 
gle pile  is  plotted  with  respect  to  depth  (z)  (Fig.  1),  the 
function  Q(z)  indicates  the  load  transfer  along  the  pile 
shaft.   At  a  distance  z  =  D,  the  transferred  load  is  the 

pile  point  load  (Q  ). 
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Along  the  shaft,  the  difference  Q(z)  ~  Qp  '^  Qg 
represents  the  pile  shaft  load.   The  forces  acting  on  a  dif- 
ferential element  along  the  shaft  are  comprised  of  both 
axial  (Q(z))  and  frictional  forces  (f  (z)).   Summation  of 
forces  in  the  vertical  direction  for  a  system  in  equilibrium 
yields : 


Z  F   =  Q  -  (Q  +  dQ)  -  f  'P  dz  =  0 
z  o 


d^ 

dz 


-  f  'P 
o 


(1.02) 


Thus,  the  rate  of  change  of  the  axial  load  is  proportional 
to  shaft  resistance.   Conversely,  the  slope  of  the  function 
Q(z)  divided  by  pile  perimeter  length  P  yields  the  distribu- 
tion of  skin  resistance  (f  )  along  the  shaft  (Vesic,  1970) 


1  dQ 


P  dz 


(1.03) 


It  should  be  noted  that  as  long  as  Q(z)  decreases  with  depth 
(z)  the  function  (f  )  remains  positive.   Some  hypothetical 
shapes  of  load  distribution  are  shown  in  Fig.  2.   For  case 
(E)  the  axial  load  distribution  partially  increases  with 
depth  thus  yielding  a  negative  distribution  of  shaft  resis- 
tance, which  represents  the  case  of  negative  skin  resis- 
tance . 

Likewise,  from  measured  results  of  the  curve  Q  (z)  it 

is  possible  to  find  the  vertical  displacement  (w  )  of  the 
•^  z 

pile  shaft  at  any  depth  (z)  below  the  ground  surface,  pro- 
vided the  cross-sectional  area  (A)  and  modulus  of  elasticity 
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Figure  2 

Typical  Simple  Distributions  of  Load  Transfer 

Cfrom  Vesic,   1977] 
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(E    )    of    the    pile    shaft    are    known    and    the    vertical    displace- 
ment   of    the    pile    top    (w    )    is    measured    during    the    loading 
test.       Assuming    a    linear    stress-strain    condition    and    con- 
stant   A    and   E      along    the    shaft,     it    can    be    shown    that 


"z    =    "o    ■    a|-    ^0    ^^^^    ^^ 


(1.04) 


The  displacement  can  also  be  measured  directly  when  strain 
rods  are  implemented.   In  a  similar  manner,  a  plot  of  the 
measured  displacements  versus  depth  as  a  function  w(z) 
yields  the  following 


Q(z)  =  AE 


dw 
p  dz 


(1.05) 


From  the  previous  definition  (Eq.  1.03),  the  distribution  of 
shaft  resistance  can  be  determined  from  the  rate  of  change 
of  Q(z)  with  depth. 

Both  strain  gages  and  strain  rods  have  been  used  exten- 
sively.  The  strain  rods,  which  do  not  require  sophisticated 
equipment,  have  been  considered  more  reliable  in  the  past 
when  the  use  of  electronic  instrumentation  on  building  sites 
posed  many  difficulties  of  practical  order  (Vesic,  1970). 
With  improvements  in  efficiency  and  economy  of  strain  gage 
instrumentation,  the  use  of  strain  gages  has  become  more 
common.   They  offer  better  accuracy  and  more  efficient 
recording;  in  addition,  they  allow  the  measurement  of  resi- 
dual stresses  due  to  pile  driving.   The  problem  of  residual 
stresses  will  be  discussed  subsequently.   However,  even  when 
direct  measurements  cannot  be  made  along  the  shaft,  much 
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valuable    information    about    the    manner    of    load    transfer    can 
be    had    from    simple    tip    measurements,    using    tell-tale    data    as 
proposed    by    the    method    of    Leonards    and    Lovell    (1978).      A 
number    of    experimental    studies    have    been    conducted    to    test 
the    basic    principles    of    load    transfer    as    previously    del- 
ineated . 

From    the    studies    of    piles    in    clay,     the    general    findings 
are    that    piles    driven    in    clay    demonstrate    a    parabolic    skin 
resistance    similar    to    Fig.    2D    (Vesic,     1970).       The    measured 
average    skin    resistance    was    about    equal    to    the    average 
undrained    shear    strength    of    the    clay,    and    only    small    frac- 
tions   of    the    load    were    transmitted    by    the    pile    point.       Other 
studies     (Seed    and    Reese,     1957)    have    also    confirmed    that    the 
average    skin    resistance    ultimately    reached    by    the    piles     (in 
about    a    month    after    driving)    was    approximately    equal    to    the 
average    undrained    strength    of    the    undisturbed    clay    prior    to 
pile    driving. 

Recent    research    has    been    focused    on    the    role    of    resi- 
dual   stresses     (Holloway    et    al.,     1975;     O'Neill    et    al.,     1982). 
It    is    contended    that    the    parabolic    distribution    of    shaft 
friction    is    in    part    due    to    the    presence    of    residual 
stresses,    whereas    in    their    absence    a    linear    increasing    dis- 
tribution   may    be    reasonable.       In    addition,    a    number    of    stu- 
dies   have    contributed    to    the    belief    that    the    skin    resistance 
of    piles    in    clay    is    essentially    of    a    frictional    nature    and, 
as    such,    may    be    predicted    from    drained    strength    characteris- 
tics   of    the    soil    (Burland,     1973;     O'Neill    et    al.,     1982). 
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Similarly  for  driven  piles  in  sand,  the  observed  load 
transfer  curves  IndlcaCe  skin  resistances  which  for  piles  in 
compression  appear  to  be  generally  parabolic.   Measurements 
of  strains  along  the  shaft  produced  load  transfer  curves 
which  Indicate  very  low  or  negative  friction  in  the  zone 
immediately  above  the  base  of  the  shaft.   Measurements  of 
normal  stress  along  the  skin  indicate  a  clearly  parabolic 
pressure  distribution  with  an  average  coefficient  of  lateral 
pressure  close  to  the  active  value.   Later  studies  offered  a 
rational  explanation  for  the  observed  phenomenon  (Vesic, 
1970).   The  low  skin  friction  above  pile  points  in  sand  can 
be  attributed  to  arching  or  stress  relief  in  a  zone  extend- 
ing to  perhaps  three  pile  diameters  above  the  pile  point. 
The  Interpretation  of  measured  distributions  of  skin  fric- 
tion is  furthered  complicated  by  the  presence  of  significant 
residual  stresses  (Holloway  et  al.,  1975). 

Nevertheless,  the  empirical  studies  have  demonstrated, 
as  previously  stated,  that  both  the  pile  point  and  all 
points  of  the  pile  shaft  have  moved  sufficiently  with  regard 
to  adjacent  soil  to  develop  simultaneously  the  ultimate 
point  and  skin  resistance  of  the  pile.   The  displacement 
needed  to  mobilize  skin  resistance  is  small,  not  exceeding 
0.4  in.  (10  mm),  regardless  of  soil  and  pile  type  and  pile 
dimensions.   By  contrast,  the  displacement  needed  to  mobil- 
ize point  resistance  may  be  relatively  large,  particularly 
for  very  large  piles,  because  it  amounts  to  about  10  percent 
of  pile-point  diameter  for  driven  piles  and  as  much  as  30 
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percent  of  pile-point  diameter  for  bored  piles.   Thus,  it 
can  be  shown  that  for  very  stiff  piles,  where  the  pile-point 
displacement  is  approximately  the  same  as  the  displacement 
of  the  pile  head,  the  ultimate  skin  resistance  is  mobilized 
much  sooner  than  the  point  resistance.   Furthermore,  it  has 
been  demonstrated  (Vesic,  1970)   that  the  fraction  of  the 
total  load  carried  by  point  resistance  is  much  less  at  work- 
ing loads  than  at  the  ultimate  load.   In  other  words,  had 
the  ultimate  point  resistance  been  mobilized  simultaneously 
with  shaft  resistance,  a  constant  relationship  would  be  evi- 
dent in  the  measured  tests  results. 

The  manner  of  load  transfer  is  more  complicated  for 
relatively  flexible  piles,  in  which  the  displacement  of  the 
pile  head  can  be  considerable  greater  than  that  of  pile  tip, 
thus  mobilizing  the  skin  resistances  in  the  upper  portion  of 
the  pile  much  earlier  than  those  in  the  lower  portion  of  the 
pile.   In  such  a  case,  a  substantial  load  can  be  carried 
exclusively  by  the  pile  shaft,  particularly  if  the  pile  is 
relatively  long.   A  substantial  load  may  need  be  applied  to 
produce  the  required  relative  displacement  between  the  point 
and  adjacent  soil  before  any  portion  of  the  total  load  can 
be  transferred  at  the  tip.   This  mechanism  is  illustrated  in 
Fig.  3  which  shows  the  load  transfer  of  a  relatively  flexi- 
ble steel-tube  pile.   It  can  be  seen  that  all  of  the  applied 
load  was  taken  by  shaft  resistance.   A  load  of  40  kips  (180 
kN)  was  required  to  overcome  shaft  friction  and  begin  to 
transfer  load  at  the  point. 
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Figure  3 

Load  Transfer  From  a  Steel    Pile  Driven  Through  Compressible  Silt  to  Rock 

Cfrom  V&sic,    1970] 


16 

A  number  of  analytical  methods  have  been  proposed  in 
order  to  make  some  numerical  assessment  of  the  observed 
phenomenon  of  load  transfer.   It  is  an  assessment  which  is 
at  best  approximate,  but  essential  for  a  rational  design  of 
pile  foundations.   The  methods  can  be  categorized  into  two 
basic  approaches;  the  transfer  function  approach  and  the 
elastic  solid  approach  (Fig.  A)  (Vesic,  1977). 

The  transfer  function  provides  a  unique  relationship 
between  the  load  transferred  from  an  element  and  the  dis- 
placement of  that  element.   It  contains  an  implicit  assump- 
tion that  the  displacements  along  any  element  are  not 
affected  by  skin  loads  transferred  by  other  elements,  except 
through  the  pile  itself.   Thus,  the  model  is  comprised  of  a 
set  of  nonlinear  springs  which  represent  the  soil,  support- 
ing the  pile  at  mid-points  of  each  element  and  entirely 
independent  of  each  other.   However,  as  it  was  previously 
demonstrated  that  any  applied  load  (Q)  transmitted  to  the 
soil  must  affect  other  points  along  the  shaft  to  some  dis- 
tance from  the  considered  element,  the  concept  of  a  unique 
transfer  function  is  in  obvious  contradiction  with  reality. 

The  elastic-solid  approach  attempts  to  circumvent  this 
inconsistency  by  considering  the  effects  of  transmitted 
shaft  loads  (AQ)  on  other  points  along  the  shaft.   It  also 
allows  the  possibility  that  the  displacement  of  a  pile  ele- 
ment (w  )  many  be  different  from  the  displacement  of  the 
adjacent  soil.   It  should  be  noted  that  fundamental  to  this 
approach  is  the  assumption  that  the  soil  conforms  to  a 
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linear    stress-strain    relationship    as    a    homogeneous,    elastic, 
isotropic    solid    defined    by    the    two    deformation    characteris- 
tics!   modulus    of    deformation    (E    )    and    Poisson's    ratio    (v    ) 

a  s 

(Vesic,  1970) 

The  principal  advantage  of  using  this  approach  is  that 
it  considers  the  adjacent  soil  as  a  continuum.   However, 
there  are  still  a  number  of  limitations.   The  fundamental 
assumption  of  only  two  deformation  characteristics  (E   and 
V  )  may  not  adequately  model  the  soil  response.   Most  soils 
show  stress-strain  history,  and  time-dependent  response  to 
loading.   In  particular,  cohesionless  soils  exhibit  increas- 
ing E-values  as  a  function  of  the  mean  normal  stress.   In 
addition,  the  elastic-solid  approach  assumes  the  same  E  in 
tension  as  in  compression,  whereas  most  soils  can  take  lit- 
tle stress,  if  any,  in  tension. 

Recent  research  with  finite  elements  has  attempted  to 
obviate  a  number  of  these  limitations.   The  stress-strain 
response  of  the  soil  cam  be  modeled  as  bilinear  and  stress 
dependent  (Poulos  and  Davis,  1980).   In  addition,  the 
finite-element  method  (by  its  nature)  allows  the  introduc- 
tion of  arbitrary  inhomogeneties  in  the  soil  mass,  such  as 
layers  and  lenses  of  different  characteristics.   Some 
researchers  have  introduced  special  joint  elements  at  the 
pile  interface  to  allow  for  slip  (Ellison  et  al.,1971; 
Desai,1974).   Comparisons  of  finite  element  analysis  with 
the  elastic-solid  approach  indicate  that  analysis  based  on 
the  latter  approach  gives  results  of  adequate  accuracy  for 
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practical    purposes,    provided    that    severe    variations    in    sub- 
goll    conditions    do    not    occur   along    the    pile    (Lee,    1973). 


Residual    Stresses 

Detailed    studies    of    load    transfer    from    instrumented 
load    tests    indicate    the    presence    of    residual    loads.       These 
residual    stresses    have    been    shown    to    significantly    alter    the 
pile    response    to    subsequent    load,    particularly    in    the    case 
of    relatively    deformable    piles.       Residual    stresses    are 
stresses    which    have    developed    along    the    pile    shaft    and    point 
due    to    strains,    produced    from   previous    load    cycles,    which 
were    constrained    from    rebounding    elastically. 

The    generation    of    residual    loads    is    a    function    of    the 
load-unload    mechanisms    of    pile    installation    and    appear    to 
depend    on    the    pile-soil    system   only,     independent    of     the 
impact    pile-driving    apparatus    used.       The    pile    shaft    will 
tend    to    return    to    its    initial    length    upon    removal    of    a 
compressive    load    at    the    head    of     the    pile.       With    this    ten- 
dency,    the    upper    portion    of    the    shaft    will    normally    move 
sufficiently    upward    against    the    adjacent    soil    to    develop 
negative    skin    friction,    which    is    counterbalanced    by    residual 
skin    friction    in    the    lower    portion    of    the    shaft    and,     if    the 
applied    compressive    load   was    high    enough,    by    residual    point 
load    on    the    pile    (Vesic,     1977).       In    particular    for    driven 
piles    whose    installation    consists    of    periodical    loading    and 
unloading    of     the    pile    head    by    dynamic    impulses,     the    result 
is    a    generation    of    substantial    residual    loads,     the    existence 
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of  which  has  an  effect  on  the  subsequent  load-settlement 
response  of  the  pile. 

These  effects  were  first  confirmed  quantitatively  in 
field  studies  at  the  Arkansas  River  Project  (Mansur  and 
Hunter,  1970)  where  residual  loads  up  to  50  tons  (45  metric 
tons)  were  recorded  in  53  ft  (16  m)  long  steel  pipe  and  H- 
piles.   As  shown  in  Fig.  5,  the  presence  of  residual  load 
causes  an  apparent  concentration  of  skin  friction  in  the 
upper  part  of  the  shaft,  if  the  pile  is  loaded  in  compres- 
sion.  Conversely,  for  piles  loaded  in  tension  after  being 
loaded  in  compression  or  immediately  after  driving,  the 
apparent  load  distribution  shows  a  tensile  load  at  the  pile 
tip  equal  in  magnitude  to  the  residual  point  load. 

It  should  be  noticed  that  the  magnitude  of  residual 
point  load  (compression)  would  be  measured  in  tension  since 
the  instrumentation  was  zeroed  at  the  start  of  the  compres- 
sion load  test.   Furthermore,  the  actual  residual  load  dis- 
tribution cannot  be  determined  unless  the  instrumentation  is 
zeroed  before  installation  of  the  load  test  pile.   Conse- 
quently, the  shapes  of  unit  skin  friction  distribution 
(f  (z))  and  load  transfer  distribution  (Q(z))  curves  at 
failure  in  both  compression  and  tension  remain  indeter- 
minate.  However,  corrected  values  of  point  capacity  and 
total  shaft  capacity  can  be  obtained  from  subsequent  tension 
load  test  data,  provided  load-strain  measurements  are  made 
near  the  pile  point. 
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In  order  to  better  appreciate  the  effect  of  residual 
loads  on  the  mechanism  of  load  transfer,  hypothetical  dis- 
tributions of  load  transfer  behavior  in  compression  and  ten- 
sion are  presented  in  Fig.  6  as  provided  by  Holloway  et  al. 
(1975).   A  triangular  distribution  of  skin  friction  at 
failure  is  assumed  for  the  sake  of  simple  analysis  as  in 
Fig.  6b.   Consequently,  the  distribution  of  load  transfer 
(Q(z))  can  be  determined  from  the  previously  described  load 
transfer  relationships. 

Curves  0  and  0'  describe  the  residual  load-shear  stress 
distribution  state  at  the  start  of  the  compression  and  ten- 
sion test,  respectively.   The  shapes  of  these  curves  were 
arbitrarily  assumed  based  on  preliminary  static  analyses  of 
cyclic  load  test  behavior  (Holloway  et  al.,  1978).   As 
assumed,  the  load  distribution  curve  1  is  parabolic  for  a 
linearly  increasing  skin  friction.   The  differences  between 
curves  1  and  0  are  plotted  as  curve  IM.   If  the  instrumenta- 
tion were  zeroed  after  installation  and  prior  to  the  load 
test,  the  curve  IM  would  describe  the  load  transfer  (Q(z)) 

and  distribution  of  skin  resistance  (f  (z))  mobilized  in  the 

o 

pile-soil    system    at    the    current    load    level.       In    fact,    most 
load    tests    make    the    implicit    assumption    of    a    stress-free 
pile    at    the    start    of    the    test.       Therefore,     curve    IM    would 
represent    the    measured    load    transfer    (Q(z))    and    skin    resis- 
tance    (f     (z))    along    the    shaft,     assuming    no    residual    loads. 
As    previously    stated,     reported    load    test    results    often    exhi- 
bit   a    similar    parabolic    distribution. 
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Similarly  for  the  tension  test,  curves  2  present  what 
would  be  the  actual  load  distribution.   Curve  2M  represents 
the  load  distribution  obtained  from  measured  data.   For  con- 
ventional load  tests,  this  would  represent  the  mobilized 
resistance  assuming  no  stress  in  the  pile  at  the  start  of 
the  test.   Note  that  the  measured  tension  force  at  the  pile 
tip  corresponds  to  the  residual  compression  load  at  the  time 
the  gage  was  zeroed.   This  phenomenon  was  also  evidenced  in 
the  results  of  the  Arkansas  River  Project. 

There  are  several  important  implications  concerning  the 
effect  of  residual  loads.   As  previously  stated,  curves  IM 
describe  the  shapes  of  the  (hypothetical)  measured  load  and 
computed  shaft  resistance  curve,  uncorrected  for  the  resi- 
dual load  distribution.   It  should  be  noted  that  the  unit 
shaft  resistance  curve  IM  shows  a  linear  increase  of  shear 
stress  only  at  shallow  depth,  after  which  it  drops  to  a  new 
constant  value.   In  addition,  the  curve  IM  defines  a  greater 
area  beneath  the  curve  and,  thus,  a  higher  shaft  capacity 
then  is  actually  present.   Likewise,  the  measured 
(uncorrected)  value  of  point  bearing  capacity  underestimates 
the  true  value  by  the  magnitude  of  the  residual  point  load. 

The  aforementioned  hypothetical  case,  which  gives  at 
best  only  a  qualitative  assessment  of  the  effect  of  residual 
loads,  nevertheless  yields  the  following  observations  (Hol- 
loway  et  al.,  1975).   By  neglecting  residual  stresses  in 
analyzing  pile  load  tests  results  one  usually  (1)  overesti- 
mates pile  shaft  capacity,  (2)  underestimates  point 
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capacity,  and  (3)  incorrectly  determines  the  actual  resis- 
tance distribution  at  failure. 

Analytical  techniques  have  been  proposed  which  incor- 
porate the  effects  of  residual  loads  in  approximating  pile- 
soil  interaction  behavior  throughout  installation  and  load 
testing  (Holloway  et  al.,  1978).   A  caveat  at  this  point  may 
be  warranted.   The  incorporation  of  residual  load  effects 
may  greatly  enhance  present  analytical  techniques  of 
predicting  pile  driveability  and  accompanying  structural 
stresses.   However,  more  research  should  be  conducted  before 
recommending  new  correlations  for  ultimate  design  capaci- 
ties. 

Installation  Effects 


The  importance  of  residual  stresses  in  piles,  induced 
during  installation,  on  the  mechanism  of  load  transfer  has 
been  demonstrated.   There  are,  however,  also  other  installa- 
tion effects  which  may  significantly  alter  the  load  response 
of  the  pile. 

Cohesionless  Soils 
A  prominent  effect  of  driven  piles  in  cohesionless 
soils  is  the  compaction  of  the  soil  by  displacement  and 
vibration,  resulting  in  permanent  rearrangement  and  some 
crushing  of  the  particles.   The  distinct  advantage  of  driven 
piles  in  loose  soils  is  that  the  load  capacity  of  the  pile 
is  increased  as  a  result  of  the  increase  in  relative  density 
caused  by  driving.   The  extent  of  compaction  of  sand  and  the 
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increase  in  relative  density  around  the  pile  have  been  stu- 
died by  Meyerhof  (1959)  and  Robinsky  and  Morrison  (196A). 

The  results  of  both  investigations  were  found  to  be  in 
broad  agreement.   It  was  found  that  in  an  initially  very 
loose  sand  (relative  density  D   =  17%),  soil  movement 
extended  3  to  A  pile  diameters  from  the  side  of  the  pile  and 
2.5  to  3.5  diameters  below  the  pile  tip.   In  a  medium  sand 

(D   =  35%),  the  movement  extended  to  some  4.5  to  5.5  diame- 
r 

ters  from  the  side  and  3.0  to  4.5  diameters  below  the  tip. 
Although  both  results  are  in  general  agreement,  Meyerhof 
(1959)  predicts  the  amount  of  compaction  near  the  tip  to  be 
greater,  and  that  near  the  top  of  the  shaft  to  be  less. 

The  extent  of  compaction  also  effects  the  load  behavior 
of  pile  groups.   When  groups  of  piles  are  driven  into  a 
loose  sand,  the  soil  around  and  between  the  piles  becomes 
highly  compacted,  and  if  the  pile  spacing  is  sufficiently 
close  (less  than  about  six  diameters),  the  ultimate  load 
capacity  of  the  group  may  be  greater  than  the  sum  of  the 
capacities  of  the  individual  piles,  that  is,  the  efficiency 
of  the  group  is  greater  than  1  (Poulos  and  Davis,  1980). 
However,  in  very  dense  sand,  pile  driving  may  cause  loosen- 
ing rather  than  compaction,  yielding  a  group  efficiency  of 
possibly  less  than  1.   This  might  be  expected  due  to  the  tend- 
ency of  dense  sand  for  dilation.   These  volume  increases  would 
result  in  increases  in  the  void  ratio  which  means  a  decrease 
in  density.   Furthermore,  dynamic  loads  due  to  pile  driving 
may  cause  local  liquefaction.   Cyclic  loads  can  cause  a 
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build  up  of  pore  pressures  in  medium  to  dense  saturated  sands, 
and  hence  induce  measurable  strains  in  the  soil  which  would 
ordinarily  exhibit  a  dilative  response  under  static  loads. 
However,  the  actual  behavior  of  the  single  pile  or  the  pile 
group  will  depend  on  a  number  of  contributing  factors  which 
are  difficult  to  measure. 

The  installation  procedures  for  a  bored  pile  are  likely 
to  disturb  and  loosen  the  soil  to  some  extent.   Also,  some 
loosening  is  liable  to  occur  at  the  bottom  of  the  pile  as  a 
result  of  baling  or  " shell ing-out"  the  hole,  and  when  this 
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is  done  under  water,  the  upward  surge  on  withdrawal  of  the 
baler  or  shell  can  loosen  the  soil  for  several  feet  below 
and  around  the  pile  (Poulos  and  Davis,  1980).   Consequently, 
based  on  empirical  studies,  Meyerhof  (1976)  recommends  cer- 
tain reductions  in  ultimate  shaft  and  point  capacities. 

Cohesive  Soils 
The  effects  of  pile  driving  in  clays  have  been  classi- 
fied Intc  four  major  categories  by  de  Mello  (1969): 

(a)  Remolding  or  partial  structural  alteration 
of  the  soil  surrounding  the  pile. 

(b)  Alteration  of  the  stress  state  in  the  soil 
in  the  vicinity  of  the  pile. 

(c)  Dissipation  of  the  excess  pore  pressures 
developed  around  the  pile. 

(d)  Long-term  phenomena  of  strength  regain  in 
the  soil. 


Based  on  observations  from  load  tests  to  failure  car- 
ried out  on  piles  at  different  times  after  their  installa- 
tion, it  has  been  found  that  the  undrained  strength  of  a 
clay  is  Initially  decreased  considerably  because  of  driving, 
but  that  significant  regain  of  strength  occurs  with  time. 
Hence,  it  may  be  generally  expected  that  the  driving  of 
piles  into  clay  will  initially  cause  some  (or  even  consider- 
able) loss  in  undrained  strength  of  the  clay  because  of 
remolding  at  constant  water  content.   Subsequently,  the 
strength  will  usually  increase  because  of  a  combination  of 
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two  factors  :  thixotropic  regain  of  undrained  strength  as 
the  structural  bonds  destroyed  by  remolding  are  at  least 
partially  restored,  and  increase  resulting  from  local  conso- 
lidation of  the  clay  produced  by  dissipation  of  excess 
pore-water  pressures  that  arise  from  the  increase  in  stress 
in  the  soil  surrounding  the  pile  (Poulos  and  Davis,  1980). 

The  available  evidence  (de  Mello,  1969)  suggests  that 
immediately  after  driving,  the  amount  of  remolding  decreases 
from  about  100%  at  the  pile-soil  interface  to  virtually  zero 
at  about  1.5  to  2.0  diameters  from  the  pile  surface.   The 
rate  of  increase  of  soil  strength  subsequent  to  pile  driv- 
ing, other  than  for  thixotropic  regain,  is  related  to  the 
rate  of  dissipation  of  excess  pore  pressure  (Soderberg, 
1962).   Measurements  of  pore  pressure  at  the  pile  face  indi- 
cate that  the  excess  pore  pressures  may  become  equal  to  or 
even  greater  than  the  effective  overburden  stress.   However, 
the  induced  excess  pore  pressures  decrease  rapidly  with  dis- 
tance from  the  pile  and  generally  dissipate  very  rapidly  at 
all  points.   Furthermore,  as  a  consequence  of  excess  pore 
pressures,  significant  negative  friction  is  developed  as  a 
result  of  reconsolidation  of  the  soil  around  the  pile  (Fel- 
lenius  and  Broms,  1969). 

Heave  of  the  soil  surrounding  the  pile  is  another  sig- 
nificant effect  of  pile  driving  in  clay.   The  movement 
(heave)  caused  by  pile  driving  may  have  a  significant  effect 
on  adjacent  structures  and  may  also  cause  previously 
installed  piles  to  displace.   In  such  cases,  it  may  be 
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necessary  to  redrive  earlier  piles  or  to  initially  use  b.ored 
piles . 

From  measurements  of  displacements  resulting  from  pile 
driving  in  clays,  it  has  been  found  that  the  soil  displace- 
ments are  less  for  piles  driven  in  sensitive  clays  than  for 
corresponding  piles  in  insensitive  clays,  and  that  when 
piles  penetrate  alternating  strata  of  fine-grained  soil  and 
granular  materials,  the  observed  surface-heave  may  be  much 
less  than  that  which  would  have  occurred  in  insensitive  clay 
soils  (Hagerty  and  Peck,  1971).   Concerning  lateral  move- 
ments, it  was  found  that  driven  piles  tended  to  be  displaced 
away  from  subsequent  driving,  with  movements  continuing  for 
a  considerable  length  of  time  after  completion  of  driving. 

The  adhesion  between  pile  and  soil  is  significantly 
altered  by  the  installation  of  bored  piles.   The  adhesion 
has  been  found  to  be  less  than  the  undralned  cohesion  before 
installation,  mainly  because  of  softening  of  the  clay 
immediately  adjacent  to  the  soil  surface.   Poulos  and  Davis 
(1980)  contend  that  softening  may  be  caused  by  : 

(a)  Absorption  of  moisture  from  the  wet 
concrete  (when  present). 

(b)  Migration  of  the  water  from  the  body 
of  the  clay  toward  the  less  highly 
stressed  zone  around  the  borehole. 

(c)  Water  used  in  the  boring  process  to 
facilitate  operation  of  the  cutting 
tool . 
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Some  of  these  causes  may  be  ameliorated  by  good  drilling 
technique  . 

Disturbance  and  softening  of  the  clay  beneath  the  pile 
base  may  result  in  increased  settlements,  in  particular  for 
belled  piers,  for  which  the  base  carries  a  major  portion  of 
the  load.   However,  base  disturbance  and  softening  should 
have  a  negligible  effect  on  the  ultimate  bearing  capacity  of 
the  base  because  of  the  comparatively  large  mass  of  clay 
involved  in  the  shear  failure  of  the  clay  (Skempton,  1959). 
The  friction  resistance  developed  in  the  clay  along  the  pile 
is  probably  restricted  to  the  narrow  softened  zone. 
Nevertheless,  due  to  construction  effects  (e.g.,  entrapped 
drilling  mud  along  the  shaft),  no  reliance  should  be  palced 
on  load  transfer  developing  within  three  shaft  diameters  of 
the  surface  or  one  diameter  of  the  base. 


Negative  Shaft  Friction 
Positive  skin  friction  is  mobilized  by  relative  dis- 
placements of  the  pile  with  respect  to  the  soil.   Negative 
friction,  on  the  other  hand,  is  mobilized  by  relative  dis- 
placements of  the  surrounding  soil  with  respect  to  the  pile. 
Load  transfer  Q(z)  is  characterized  as  increasing  with 
depth.   Observations  indicate  that  a  relative  movement  of 
0.6  in.  (15  mm)  of  the  soil  with  respect  to  the  pile  may  be 
sufficient  to  mobilize  full  negative  skin  friction  (Vesic, 
1977).   According  to  Varde  et  al  (1969),  this  relative  dis- 
placement need  not  be  more  than  10  mm  to  develop  the  full  neg- 
ative skin  friction.   The  downward  movement  of  the  soil  with  respect 
to  the  pile  shaft  is  due  to  other  surface  loads  or  any  other 
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cause  such  as  pumping  of  water  from  one  of  the  aquifer 
strata  in  the  profile,  which  produces  an  increase  of  effec- 
tive stress  and  settlement  of  adjacent  soil.   Under  such 
movements,  a  negative  friction  is  exerted  against  the  pile 
shaft  by  the  soil,.   The  negative  friction  may  be  assumed  as 
a  superimposed  axial  load  which  must  be  transmitted  to  a 
deeper  stratum.   Consequently,  this  can  cause  excessive  set- 
tlements of  the  piles,  with  severe  damage  or  even  collapse 
of  the  structure  supported  by  the  piles. 

Measurements  of  magnitude  and  distribution  of  negative 
skin  friction  show  its  dependence  on  the  effective  ground 
stress,  similar  to  the  formulations  for  positive  skin  fric- 
tion (Johannessen  and  BJerrum,  1965;  Endo  et  al.,  1969;  Fel- 
lenius  and  Broms,  1969).   However,  the  negative  skin  fric- 
tion develops  only  along  the  portion  of  the  pile  shaft  where 
the  soil  settlement  exceeds  the  downward  displacement  of  the 
pile  shaft.   A  neutral  point  is  established,  whose  position 
coincides  with  the  point  of  no  relative  movement  between  the 
pile  and  the  adjacent  soil  (Endo  et  al.  1969).   Some  studies 
have  measured  the  neutral  point  at  approximately  75  percent 
of  pile  length  (Fellenius  and  Broms,  1969;  Walker  and  Dar- 
vall,  1973).   However,  other  investigators  (Bozozuk,  1972; 
Cognon,  1972)  show  that  the  neutral  point  can  be  located  at 
a  higher  or  lower  position.   It  is  influenced  by  factors 
such  as  relative  compressibility  of  the  pile  shaft  and 
underlying  soil  with  respect  to  the  surrounding  soil,  rela- 
tive magnitude  of  axial  load  in  the  pile  with  respect  to 
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effective  stress  change  that  causes  settlement  of  surround- 
ing soil,  as  well  as  the  position  of  the  most  compressible 
stratum  in  the  overall  soil  profile  (Bozozuk,  1972;  Buisson 
et  al  .  I960).   Below  the  neutral  point,  friction  remains 
positive  and  the  load  transmitted  to  the  pile  point  may  be 
significantly  less  than  the  maximum  axial  load  in  the  pile. 

A  number  of  methods  have  been  proposed  to  reduce  nega- 
tive skin  friction.   The  pile  shaft  can  be  isolated  from  the 
settling  soil  by  use  of  an  outer  casing.   Alternatively,  the 
pile  can  be  placed  in  a  pre-drilled  hole  of  larger  diameter 
than  the  pile  shaft,  filling  the  gap  with  bentonite  slurry, 
which  in  view  of  its  low  friction  characteristics,  limits 
the  negative  friction  to  a  relatively  low  value  (Vesic, 
1977).   In  soft  soils,  some  success  has  been  achieved  by 
coating  the  pile  with  a  bitumen  layer. 

However,  these  methods  could  be  expensive.   Hence,  an 
estimate  of  the  additional  load  due  to  negative  friction  should 
be  established  and  taken  into  account  in  the  design.   A  wide 
variety  of  methods  has  been  proposed  for  that  purpose.   Kezdi 
(1975)  suggested  (as  a  rough  estimate)  to  assume  that  nega- 
tive friction  on  the  contact  between  the  pile  shaft  and  soft 
soil  is  equal  to  the  pile  perimeter  multiplied  by  the  thick- 
ness of  the  soft  layer  and  by  the  average  value  of  the  un- 

drained  shear  strength  (c  )  of  the  undisturbed  soft  soil. 

u 

Bowles  (1982)  suggested  the  following  procedures  to  make 
the  required  estimate: 

1.   For  a  fill  layer  overlying  a  compressible  soil 
deposi  t : 
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Pi  K   Y'  H 
^1   o  '    s 


where : 
P 


{  l.OA 


n 


additional  pile  load  due  to  negative 


friction 


p   =  pile  perimeter 

Y'  =  effective  unit  weight  of  compressible 

layer 

H   =  thickness  of  compressible  layer 

K   =  coefficient  of  lateral  earth  pressure 
o 

at  rest 

2.   For  cohesive  fill  overlying  cohesionless  soil: 

,2 


"f 
where 


Pi  ^o  ^'  "f 
2 


1.05 


H   =  thickness  of  fill  layer 

3.   For  piles  at  small  spacings,  the  negative  friction 
forces  may  effectively  act  on  the  block  perimeter,  rather 
than  on  individual  piles.   Two  cases  should  then  be  investi- 
gated: 

a.   The  negative  skin  friction  as  the  sum  of  the  in- 
dividual piles: 


Q    =  n  •  P 
"f         "f 


1  .06 


where : 


Q    =  additional  group  load  due  to  negative 
n^  OF  & 

f r ic t  ion 
n  =  number  of  piles  in  a  group 
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The  block  skin  friction  is 


Q    =rH   p^+Y'H   A' 
n        s   2    '    s 


1.07) 


where : 

r  =  center- to-center  spacing  between  piles 

H   =  thickness  of  very  soft  layers  or  re- 
s 

cently  placed  fill  penetrated  by  the 

piles 

A'  =  area  of  pile  group  enclosed  in  perimeter 

p   =  perimeter  of  pile  group 

The  maximum  value  from  Eq .  (1.06)  or  (1.07)  should  be  taken. 

Usually  the  value  of  Q    obtained  from  Eq.  (1.07)  is  the  criti- 

cal  one.   The  value  of  Q    should  be  added  to  the  column  load, 

"f 
and  modifications  in  the  number  of  piles  or  in  spacings  may 

be  required  to  account  for  the  effect  of  negative  skin  friction. 

There  are  also  a  number  of  rather  complex  methods  to  calculate 
the  downward  drag  due  to  negative  friction  (e.g.,  Poulos  and 
Davis,  1980).   However,  Kezdi  (1975)  had  stated  that  a  very 
refined  analysis  is  in  general  not  justified,  since  the  numer- 
ical values  of  the  input  parameters  are  only  approximately 
known. 

Therefore,  negative  skin  friction  can  be  expected  above 
the  point  of  the  pile  where  the  relative  downward  displace- 
ment of  the  soil  with  respect  to  the  pile  exceeds  0.6  in. 
(150  mm).   Its  magnitude  is  proportional  to  the  effective 
vertical  stress  and  is  similar  to  positive  friction  in  com- 
putation.  As  long  as  the  downdrag  force  is  less  than  the 
live  load,  its  negative  effect  on  pile  foundation  perfor- 
mance is  minimal. 
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CHAPTER  2 
PILE-SOIL  DESIGN  CAPACITY 

As  previously  stated,  the  summation  of  the  point  and 
shaft  resistances  constitutes  the  ultimate  static  load  capa- 
city of  the  pile,  that  is, 

Q^  =  Qp  +  Q^  (2.01) 

where 

Q   =  ultimate  point  resistance 
P 

Q   =  ultimate  shaft  resistance 
^s 

The  fundamental  assumption  concerning  load  transference  of 
this  expression  is  that  ultimate  point  and  shaft  resistances 
are  mobilized  simultaneously. 

The  ultimate  point  resistance  (Q  )  is  generally 
evaluated  analogously  with  respect  to  bearing  capacity 
theory  as 


Q   =  A   (cN   +  a   N   +  1/2  y  d  N  )        (2.02) 
P     P     c     v^    q  Y 


where 


A  =  area  of  pile  point 

P 

c  =  cohesion  of  soil 

a  =  vertical  stress  in  soil  at  depth 

V  '^ 

P 
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y 

d 

N         N 


of    pile    point 

unit    weight    of    soil 

pile    diameter 

bearing    capacity    factors,    which 

are    primarily    functions    of    the 

angle    of    internal    friction    (  (|)) 

of    the    soil.    They    refer    to    the    influence 

of    soil    cohesion,     surcharge,    and    frictional 

resistance    induced    by    weight,     respectively. 


The    shaft    resistance    (Q    )    is    determined    by    integration 

of    the    pile-soil    shear    strength    (t    )    over    the    surface    of    the 

shaft.       Shear    strength    ( t    )    is    characterized    by    the    Coulomb 

a 

expression 


c      +    a,      tan* 
aha 


(2.03) 


where 

T         =    pile-soil    shear    strength 

c         =    adhesion 
a 

a,   =  horizontal  stress  in  soil  along  pile  shaft 

h 

4    =  angle  of  friction  between  pile  and  soil 
a 

The  horizontal  stress  (  a,  )  is  related  to  the  vertical  stress 

h 

( o  )  as 


a.  =  K  a 
h     s   V 


(2.04) 


where 


K    =  coefficient  of  lateral  pressure 
s 
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Making    the    necessary    substitutions,     the    expression    for 
pile-soil    shear    strength    becomes 


c      +   K       0      tan*  (2.05) 

a  s       V  ^a 


and  integrating  along  the  length  of  the  pile  shaft,  the 
shaft  resistance  is  evaluated  as 


Q   =  fj;  P  T   dz 
s    •'0     a 


Q   =  L  P  (c   +  K   a   tan(|)  )  dz 
s    •'0      a     s   V     ^a 


(2.06) 


where 


P  =  pile  perimeter 

L  =  length  of  pile  shaft 

Therefore,  a  general  expression  for  the  ultimate  capa- 
city of  a  single  pile  can  be  developed  from  a  combination  of 
Eqs.  2.01,  2.02,  2.06, 


Q   =  A  (cN   +  a   N   +  1/2  y   N  ) 
u     p    c     V   q  Y 


+  /^  P(c   +  K  a   tanifi  )  dz 
■*  0     a     s  V      a 


(2.07) 


Equation  2.07  is  a  general  expression  for  the  ultimate 
static  load  capacity  of  a  single  pile.   The  general  expres- 
sion will  subsequently  be  modified  to  accomodate  particular 
theories  and  soil  conditions.   Nevertheless,  certain  soil 
parameters  are  required  to  evaluate  the  above  equation. 
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The  ultimate  load  capacity  for  undrained  or  short-term 
conditions  is  computed  on  the  basis  of  the  soil  parameters 
c,  (^,  c  ,  and  Y  which  are  appropriate  for  undrained  condi- 
tions.   These  variables  may  be  readily  determined  through 
laboratory  testing  or  assumed  from  past  performance  of  simi- 
lar soils.   The  vertical  stresses,  o   and  a    should  be 

V  V 

P 
evaluated  as  total  stresses  for  undrained  condition.   The 

ultimate  load  capacity  for  long-term  conditions  should  be 

determined  by  the  drained  values  for  the  soil  parameters. 

The  vertical  stresses  in  this  case  should  be  evaluated  as 

the  effective  vertical  stresses  a'       and  o'   .   The  vertical 

V  V 

P 
stresses  are  usually  taken  to  be  the  overburden  or  surcharge 

stresses.  There  is,  however,  considerable  evidence  to  sug- 
gest a  limiting  value  for  vertical  stress  due  to  overburden 
(Vesic,  1967;  Meyerhof,  1976). 

A  number  of  theoretical  and  semiempiri cal  methods  have 
been  proposed  to  analyze  point  bearing  capacity.   These 
methods  are  often  based  on  limit  equilibrium  solutions  of 
classical  plasticity  theory.   Common  assumptions  for  soil 
behavior  as  delineated  by  Holloway  et  al.(1975)  are: 

(a)  Mohr-Coulomb  failure  criterion 

(b)  Shear  strength  independent  of 
strain 

(c)  Elastic  deformations  negligible 
with  respect  to  plastic  deformations 

(d)  Volume  changes  due  to  shear  and 
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normal  stresses  are  negligible. 
These  conditions  describe  a 
rigld-plastlc,  Mohr-Coulomb  solid. 

The  limit  equilibrium  methods  analytically  approximate 
the  behavior  of  the  physical  system  with  a  representative 
kinematic  failure  mechanism  and  associated  boundary  and 
discontinuity  conditions.   These  methods  ultimately  provide 
approximate  solutions  to  idealized  continuum  mechanic  prob- 
lems . 


Notice 

Chapters  3^  through  6^  (pages  38^  through  19  1)  are 
omitted  from  this  copy  of  the  report.   They  may  be 
obtained,  at  the  cost  of  reproduction,  from: 


Joint  Highway  Research  Project 
School  of  Civil  Engineering 
Purdue  University 
West  Lafayette,  Indiana 

47907 
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CHAPTER  7 
PILE  PROGRAM  AND  APPLICATIONS 

A  computer  program  PILE  was  written  to  facilitate  the 
computation  of  ultimate  pile  capacity  and  the  concomitant 
drlveability  analysis.   The  program  is  designed  therefore  to 
conduct  both  static  and  dynamic  analyses  of  the  pile-soil 
system.   The  models  incorporated  into  the  structure  of  the 
program  were  chosen  essentially  for  the  following  reasons: 
extensive  corroboration  of  the  models  with  empirical  obser- 
vations and  practicality  of  the  required  parameters  with 
reference  to  subsurface  investigations.   An  implicit  cri- 
terion of  the  chosen  models  is  also  the  generality  of  appli- 
cation to  difficult  soil  conditions  and  pile  configurations. 
Whereas,  a  number  of  models  have  been  discussed  which  have 
proven  to  be  equally  reliable,  they  are  often  constrained  to 
a  certain  data  field  or  by  impract icality  of  pertinent 
parameters. 

In  general,  the  program  is  structured  in  accordance 
with  most  of  the  requirements  and  recommendations  of  the 
Meyerhof  (1976)  model  for  static  analysis  of  ultimate  capa- 
city.  For  cohesive  soils,  it  was  necessary  to  present 
alternate  models  (Meyerhof,  1976;  Tomlinson,  1971)  which 
would  reflect  critical  assumptions  concerning  shear  strength 
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response  of  soils  under  design  loads. 

The  dynamic  methods  employed  in  the  program  consist  of 
a  number  of  pile-driving  formulas  and/or  a  wave  equation 
analysis  of  the  pile-soil  system.   The  pile-driving  formulas 
incorporated  were  chosen  on  the  basis  of  conventional  con- 
struction specifications  and  reliability  of  predictions. 
They  include  the  equations  conventionally  used  by  highway 
agencies  to  select  bridge  foundations.   The  wave  equation 
analysis  of  the  pile-soil  system  is  based  on  the  WEAP  pro- 
gram developed  by  Goble  and  Rausche  (1976).   The  data 
required  to  run  a  wave  equation  analysis  have  been  reduced 
and  simplified  by  Goble  and  Associates,  Inc.  (1980).   However, 
it  should  be  recognized  that  the  modifications  limit  the 
analysis  to  conventional  pile-soil  systems.   More  special 
applications  (i.e.,  partially  embedded  piles,  point  bearing 
on  rock)  would  require  the  use  of  the  original  WEAP  program. 
Other  limitations  will  become  apparent  with  the  subsequent 
discussion  of  parameters. 

Some  of  the  side  topics  like  residual  stresses  and  rate 
of  pore  pressure  dissipation  (for  settlement  computations) 
are  not  included  in  the  program  since  they  have  not  been 
well  established  yet.   Some  research  still  needs  to  be  done 
in  these  topics.   Hence,  they  will  be  handled  in  the  final 
report . 


User's  Manual 
The  program  software  was  written  specifically  for  the 
VAX  computer  system  at  Purdue  University.   It  has  also  been 
slightly  modified  for  the  IDOH  IBM  370  system.   It  is  opera- 
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tive  on  both  systems.   Further  pertinent  details  are  given 
in:   Appendix  A,  PILE  Program;  Appendix  B,  Pile  Input  Form; 
and  Appendix  C,  Examples. 

It  should  be  noted  that  a  static  analysis  may  be  con- 
ducted independent  of  either  dynamic  methods.   However,  neither 
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dynamic  analysis  may  be  performed  in  this  program 
without  having  previously  modelled  the  pile-soil  system  as 
per  the  requirements  of  the  static  methods.   The  required 
parameters  for  the  computer  program  will  be  subsequently 
discussed. 

The  first  line  of  data  characterizes  the  global  condi- 
tions of  analysis  of  the  pile-soil  system. 


N ST RAT 


APNT 


ASHFT 


LEN 


QPRMT 


SHEAR 


The  number  or  soil  layers  or  strata 

penetrated  or  expected  to  be  penetrated 

by  the  pile.  A  maximum  of  10  soil 

layers  may  be  inputted. 

Diameter  of  the  base  of  the  pile.   It  is 
used  to  determine  the  critical  depth. 
(  ft  ) 

Area  at  the  base  of  the  pile.   Required 
to  determine  point  capacity. 
(  ft^  ) 

Unit    surface    area    of    the    shaft.    This 
quantity    will    be    generated    internally    for 
tapered    piles . 
(    ft^/ft    ) 

Length  of  the  pile.   This  parameter  is 
only  used  to  assess  the  ultimate  soil 
resistance  mobilized  for  a  given  pile 
length . 
(  ft  ) 

Ultimate  design  capacity  of  pile.   This 
parameter  is  used  to  determine  the 
necessary  length  of  the  pile  required  to 
develop  the  prescribed  ultimate  design 
capacity  . 
(  ton  ) 

This  parameter  will  default  the  corres- 
ponding model  of  analysis.  Input  *DC' 
for  drained  shear  strength-long  term 
capacity.   This  condition  is  generally 
applicable  for  piles  in  cohesionless 
soils  or  for  an  effective  stress 
stress  analysis  (&-method)  of  piles  in 
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cohesive  soils.   Input  ^UU'  for  undrained 
shear  strength-short  term  capacity. 
Undrained  conditions  correspond  to  the  a 
method  of  analysis. 

PRCNT  The  percent  of  pile  taper.   It  is  only 

required  for  tapered  piles.   It  is 
assumed  that  the  pile  is  tapered  along 
its  entire  length. 

INSTL  The  method  of  pile  installation.   As 

previously  discussed  the  method  of 
installation  can  significantly  alter  the 
bearing  capacity  of  the  pile.   One  of 
four  possible  installation  techniques 
must  be  inputted:  'driven',  'bored', 
'bulbous',  or  'h  pile'. 

NEQN  Number  of  dynamic  equations  for  which 

pertinent  parameters  will  be  supplied. 
There  are  five  possible  equations. 
Any  combination  of  the  5  equations  may 
be  used. 

WAV  Wave  equation  analysis.   Input  '1'  for 

option  to  use  WEAP.   More  parameters  will 
subsequently  be  required.   Input  '0'  if 
only  a  static  analysis  is  desired. 


As  previously  noted,  the  parameter  SHEAR  essentially 
determines  the  analytical  model  for  computation.   The  fol- 
lowing input  parameters  are  required  if  SHEAR  is  defined  as 
'DC'.   In  effect,  the  following  input  data  characterize  the 
soil  conditions. 


SOIL 


This  parameter  is  used  to  describe  three 
basic  soil  types,  sands,  silts,  and 
clays.   It  is,  of  course,  an  idealized 
model  of  the  soil  strata.   In-situ  soil 
conditions  may  not  exclusively  fall  into 
one  particular  category  but  may  exhibit 
some  combination  of  the  three  basic  types 
The  operator  must  then  determine  which 
soil  type  will  predominantly  govern  the 
behavior  of  a  particular  stratum.   For 
example,  some  glacial  tills  may  exhibit 
bearing  capacities  similar  to  sands.   A 
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soil  type  is  then  defined  in  terms  of 
three  possible  abbreviations: 
*ARN'  for  predominantly  sandy  stratum 
'LIM'  for  predominantly  silty  stratum 
*ARG'  for  predominantly  clayey  stratum 
Input  is  required  for  all  layers. 

This  parameter  defines  the  thickness  of 
a  particular  stratum.   A  maximum  of 
100  ft  per  stratum  is  permissible. 
Input  required  for  all  layers. 
(  ft  ) 

Blow  count  obtained  from  the  Standard 
Penetration  tests.   Input  required  for 
all  layers.   Input  when  possible  for 
cohesive  layers. 
(  blows/ft  ) 

A  corrected  standard  penetration 
resistance  may  be  inputted,  otherwise 
the  uncorrected  value  is  defaulted. 
The  corrected  value  will  only  be 
used  in  the  determination  of  the 
limit  point  resistance. 

Angle  of  internal  friction.   Input 
required  in  degrees  for  first  layer. 
It  serves  primarily  for  classification 
purposes  for  subsequent  layers. 

Bearing  capacity  factor.  Pertinent 
values  may  be  obtained  from  Fig.  7. 
Input  required  for  first  layer.  It 
is  optional  for  subsequent  layers 
since  conventional  bearing  capacity 
theory  in  terms  of  N'  may  not 
be  applicable  with  reference  to  the 
critical  depth  as  previously  demonstrated, 

Undrained  shear  strength  of  a  cohesive 
layer.   It  serves  as  the  limit  shaft 
resistance  for  cohesive  layers. 
Input  is  required  for  all  cohesive 
layers  in  a  stratified  soil  condition. 
This  parameter  will  activate  the  3 
method  for  a  effective  stress  analysis. 
(  ton/ft   ) 

GAM  Unit  weight  of  the  soil.   Input  is 

required  for  first  layer,  optional 
for  subsequent  layers. 
(  Ib/ft^  ) 


PHI 


NQ 


CU 


197 


ZC 


KS 


DEL 


CONSL 


OCR 


critical  depth  ratio.   Input  is  required 
for  first  layer.   Appropriate  values 
may  be  obtained  from  Fig.  7.  A  default 
of  10  is  assumed  for  subsequent  layers. 

Coefficient  of  earth  pressure  on  the 
shaft.   Input  is  required  for  first 
layer  only,  unless  GAM  is  defined  for 
that  layer.   It  is  only  required  for 
cohesionless  layers.   Values  are 
determined  internally  for  cohesive 
laye  rs . 

angle  of  skin  friction.   Input  is  required 
for  first  layer  only,  unless  GAM  is 
defined  for  all  layers.   It  is  also 
only  required  for  cohesionless  layers. 

Type  of  consolidation  history.   This 
parameter  is  defined  as  ^NC'  for  normally 
consolidated  clays,  or  "OC'  for 
over  consolidated  clays.   It  is  required 
only  for  cohesive  layers.   It  is  used 
internally  to  determine  the  coefficient 
of  earth  pressure  for  cohesive  layers. 

Ratio  of  overconsolidation .   This 
input  is  required  whenever  CONSL  is 
defined  as  'OC.   It  is  used  to 
modify  the  internal  values  of  the 
coefficient  of  earth  pressure.   However, 
if  a  value  of  OCR  cannot  be  obtained 
directly  from  field  or  laboratory  tests, 
do  not  provide  an  assumed  value.   When 
omitted,  an  empirical  factor  will  be 
applied  internally. 


In  addition,  if  an  analysis  for  ultimate  soil  resis- 
tance in  terms  of  the  undrained  shear  strength  of  the  clay 
is  desired,  then  the  following  parameters  are  required. 


ALPHA 


NC 


Coefficient  of  adhesion 
all  cohesive  layers. 


Required  for 


Bearing  capacity  factor.   Required  for 
all  cohesive  layers.   It  is  generally 
taken  to  be  9. 
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The  input  variable  NEQN  will  call  the  dynamic  formula 
subroutine.   The  numerical  value  of  NEQN  will  determine  the 
number  of  data  lines  required.   A  total  of  five  formulas  may 
be  called  up,  in  any  combination.   There  are  a  number  of 
variables  which  are  common  to  several  formulas.   However, 
each  formula  has  a  particular  combination  of  these  variables 
with  some  possibly  additional  parameters.   The  operator  must 
input  those  variables  which  are  relevant  only  to  a  particu- 
lar formula. 


EQN  Name  of  the  dynamic  formula.   This 

variable  defines  the  equation  to  be 
used  and  is  therefore  required  for 
each  line  of  data.   The  number  of 
data  lines  cannot  exceed  the  number 
defined  in  NEQN.   The  following 
dynamic  formulas  may  be  called. 
Input:  'ENR' 

'HILEY' 

'JANBU' 

'DANISH' 

'GATES' 

W  Weight  of  hammer.   Input  is  required 

for  all  defined  equations. 
(  lb  ) 

H  Height  of  hammer  drop.  Input  is 

required  for  all  defined  equations. 
(  in.  ) 

C  Factor  for  energy  losses.   Input  is 

required  only  for  'ENR'. 

EF  Efficiency  factor  for  hammer.   Input 

is  required  only  for  the  following 
dynamic  formulas:  'HILEY',  'DANISH', 
and  'GATES'. 

N  Coefficient  of  elastic  restitution. 

Input  is  required  only  for  the 
'HILEY'  formula. 

WP  Weight  of  pile.   Input  is  required 
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only  for  the  following  formulas: 
'HILEY',  and  MANBU'. 
(  lb  ) 

CI  Elastic  compression  of  pile  head  and 

cap.   Input  is  required  only  for 
'HILEY'  formula. 
(  in.  ) 

C3  Elastic  compression  of  soil,  quake. 

Input  is  required  only  for  ^HILEY'. 
(  in.  ) 

EP  Modulus  of  elasticity  of  pile.   Input 

is  required  only  for  the  following 
formulas:  'HILEY',  'JANBU',  and 
'DANISH'. 
(  lb/in.   ) 

FS  Factor  of  safety.   Input  is  required 

for  all  formulas.   This  variable 
differs  from  other  previously  applied 
safety  factors  in  that  a  number  of 
the  formulas  have  been  developed  with 
an  implicit  value.   For  example,  the 
'ENR'  formula  has  an  implicit  value 
of  6  for  its  safety  factor.   Typical 
values  for  other  formulas  may  range 
between  3  and  4.   However,  since  the 
static  analysis  for  ultimate  soil 
resistance  implicitly  assumes  a  safety 
factor,  the  input  value  for  FS  must 
be  a  partial  factor  of  the  value 
required  for  a  particular  formula. 
For  example,  if  a  safety  factor  of  2 
is  assumed  for  the  static  assessment 
of  ultimate  resistance,  then  FS  =  3 
is  required  if  the  'ENR'  formula  is 
defined. 


The  unmodified  version  of  the  WEAP  program  allows  for 
two  alternate  data  input  forms,  a  short  and  a  long  form.   In 
essence,  the  short  form,  although  very  practical  due  to  the 
simplicity  of  the  data  requirements,  is  only  applicable  for 
relatively  simple  pile-soil  models.   Due  to  the  simplicity 
of  the  pile-soil  model,  it  is  able  to  internally  discretize 
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the  model  into  acceptable  elements  for  analysis.   One  disad- 
vantage of  the  automatic  model  discretization  is  that  pile 
segments  may  tend  to  straddle  different  soil  layers.   How- 
ever, the  wave  equation  analysis  can  only  consider  one  type 
of  soil  response  per  pile  element.   In  order  to  avoid  this 
situation  in  stratified  soils,  the  operator  would  have  to 
manually  generate  the  discretized  pile-soil  model.   Simi- 
larly, any  other  exception  or  model  peculiarities  would 
necessitate  the  manual  generation  of  the  discretized  model. 
This  process  would  entail  the  long  form  of  the  input  data, 
and  can  be  quite  cumbersome. 

In  the  present  form  of  the  WEAP  subroutine,  the  long 
input  form  has  been  simplified  by  internally  computing  a 
number  of  the  required  input  quantities,  such  as,  pile  ele- 
ment stiffness,  pile  segment  weights,  and  relative  ultimate 
resistances.   One  clear  advantage  of  the  modification  is 
that  the  relative  ultimate  resistances  will  conform  to  the 
resistance  distribution  as  determined  by  a  previous  static 
analysis.   This  obviates  the  need  to  prescribe  relative  per- 
centage distributions  along  the  pile. 

Therefore,  the  operator  is  only  required  to  simply 
discretize  the  pile  with  reference  to  soil  layers  and  define 
certain  parameters  relevant  to  the  pile,  soil,  and  driving 
system.   The  following  parameters  are  required  to  run  a  wave 
equation  analysis  of  the  pile-soil  model. 


NSEG 


Number  of  pile  segments.   The  pile 
must  be  discretized  into  a  finite 
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number  of  pile  segments  of  acceptable 
lengths.  It  assumes  a  fully  embedded 
pile. 

NLAYER  Number  of  soil  layers.   The  number 

of  soil  layers  penetrated  by  the 
pile  must  be  defined. 

ATP  Area  at  top  of  pile. 

(  in.^  ) 

E  Modulus  of  elasticity  of  the  pile 

(  ksi  ) 

RP  Unit  weight  of  pile  material 


The  following  variables  define  certain  parameters  for 
each  discrete  pile  segment. 


NELM  Segment  number.   Each  segment  must 

be  numbered  in  sequential  order. 

NSTRAT  Soil  layer  number.   Each  pile  segment 

corresponds  to  a  particular  soil 
layer.   Input  is  required  for  first 
segment  of  each  layer,  and  optional 
for  subsequent  segments  of  that  layer. 

ALPH  Length  of  segment.   The  pile  must  be 

discretized  in  segment  lengths 
characterized  by  whole  numbers. 
Input  is  required  for  first  segment 
of  each  layer,  and  optional  for 
subsequent  segments  of  that  layer 
unless  a  change  in  length  of  the 
segments  occurs  for  that  layer. 
(  ft  ) 

A  Area  of  element.   Input  is  required  for 

first  element  of  each  layer.   Average 
area  per  segment  is  allowed  for 
tapered  piles. 
(  in.^  ) 

QS  Soil  quake.   Input  is  required  for 

first  segment  of  each  layer  and 

optional  thereafter.  A  value  is 

also  required  for  the  pile  tip. 
(  in.  ) 
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SJ 


Soil  damping  factor.   Input  required 
for  first  segment  of  each  layer  and 
optional  thereafter.   A  value  must 
also  be  defined  for  the  pile  tip 
if  different  from  the  previous 
segment . 


The  following  variables  define  certain  characteristics 
of  the  driving  system. 


IHAMR  Type  of  hammer.   The  WEAP  program 

package  has  an  extensive  inventory 
of  conventional  hammer  data.   Each 
hammer  is  defined  by  a  numeric 
code  . 

IPEL  This  variable  defines  how  one  arrives 

at  the  pile  segment  parameters.   The 
modified  version  presently  requires 
that  IPEL  =  2  since  the  pile  masses 
and  stiffnesses  will  be  determined 
internally. 

N  Number  of  pile  segments.   The  number 

of  pile  segments  must  be  defined  again. 

NCROSS  This  variable,  for  most  cases,  is  set 

to  0  to  define  a  uniform  pile. 

IBEDAM  The  pile  material  damping  value  in 

percent  of  pile  critical  damping. 
Recommended  values  are  for  steel  (1), 
concrete  (3),  and  timber  (5).   For  zero 
damping  set  IDEDAM  =  -1.   These  values 
are  usually  of  minor  importance  and 
sufficient  information  for  their  choice 
is  not  yet  available. 

ISMITH  This  variable  defines  the  type  of 

damping  factor  to  be  used,  whether 
Smith  or  Case.   If  set  equal  to  1,  the 
damping  parameters  are  assumed  to  be 
of  the  Smith  type,  (i.e.,  dimension 
sec/ft).   If  set  equal  to  0,  the 
damping  parameters  are  assumed 
to  be  of  the  viscous  type  but 
non-dimensionalized  by  dividing 
by  EA/c,  Case  damping. 

ITYS  Type  of  skin  friction  distribution. 
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For  the  present  modified  version,  the 
variable  must  be  set  equal  to  -2  since 
several  variables,  such  as  quake, 
damping,  resistance  distribution,  will 
have  been  pre-defined. 


The  following  variables  define  certain  parameters  of 
the  driving  train  which  include  the  capblock,  helmet,  and 
cushion.   The  term  CAP  will  include  the  striker  plate,  cap- 
block,  and  helmet.   A  cushion  atop  the  pile  may  also  be 
specified. 

WT.CAP  Weight  of  CAP.   This  is  essentially 

the  weight  of  the  helmet. 
(  kips  ) 

STIFF. CAP  Stiffness  of  capblock. 

(  k/in.  ) 

STIFF .CUSHION       Stiffness  of  cushion.   This  quantity 

must  be  manually  computed  based  on 
the  elastic  modulus  of  the  material. 
(  k/in.  ) 

If  either  the  capblock  or  cushion  is  not  present,  its  stiff- 
ness should  be  0. 

Four  coefficients  of  restitution  have  to  be  specified 
for  Anvil,  Cap,  Pile  Top,  and  Pile  Cushion  for  diesel  ham- 
mers or  Cap,  Assembly,  Pile  Top,  and  Pile  Cushion  for 
air/steam  hammers.   If  they  are  not  specified,  a  value  of 
0.85  will  be  assumed  except  for  the  cushion  when  not 
present.   The  coefficient  of  restitution  of  the  cushion  will 
be  set  to  1.0  when  not  present.   It  is  recommended  to  use 
0.85  for  steel-to-steel  impact. 
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The  efficiency  of  the  hammer  may  also  be  specified 


EFF  Efficiency  of  hammer.   A  hammer 

efficiency  of  0.95  for  diesel 
hammers  will  be  used  when  not 
specified.   For  air/steam  hammers 
no  specification  will  result  in 
the  use  of  an  internal  value  from 
hammer  tables . 


Reliability  of  PILE  Program 

The  reliability  of  the  PILE  program  was  examined  by  the 
author  by  comparing  the  computed  results  from  the  program 
with  published  load  test  data.   The  studied  cases  were  taken 
from  the  published  literature,  and  comprise  a  considerable 
range  in  both  subsurface  conditions  and  pile  type.   It  was 
however  necessary  to  exclude  certain  pile  types  (e.g., 
step-tapered)  due  to  program  limitations.   Nevertheless,  the 
data  field  is  comprised  of  a  variety  of  steel  pipe,  H-pile, 
precast  concrete,  and  tapered  timber  piles.   The  subsurface 
conditions  also  exhibited  considerable  variability  in  stra- 
tification.  In  total,  some  50  cases  which  had  accompanying 
load  test  results  were  programmed. 

The  results  of  the  reliability  study  are  encouraging. 
This  is  illustrated  in  Fig.  27,  where  both  calculated  and 
measured  ultimate  load  capacities  are  plotted.   Points  along 
the  45  degree  line  would  indicate  perfect  correlation 
between  calculated  and  measured  ultimate  loads.   The  amount 
of  variability  in  the  correlations  would  manifest  itself  in 
the  manner  in  which  the  plotted  points  scatter  about  the  45 
degree  line.   For  the  present  study,  the  points  tend  to  be 
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Figure  27 

Comparison  Between  Calculated  Values  from  PILE 

and  Measured  Ultimate  Load  Capacity  from  Load  Tests 
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aligned  fairly  close  to  the  line,  with  some  concentration 
under  the  45   line.   Statistically,  this  distribution 
represents  an  average  ratio  of  calculated  to  measured  capa- 
cities (Q   /Q   )  of  0.968.   Furthermore,  the  coefficient  of 
u    u 
c    m 

correlation  was  found  to  be  0.75.   Perfect  correlation  would 
have  rendered  a  ratio  of  1.0.   The  variability  of  the  dis- 
tribution is  characterized  by  a  coefficient  of  variation  of 
32%.   Therefore,  on  the  average,  the  PILE  program  will  tend 
to  slightly  underestimate  the  pile  capacity. 

It  should  be  noted  that  the  variability  evident  in  Fig. 

27  is  not  exclusively  the  result  of  inherent  deficiencies  in 
the  analytical  models  employed  in  the  PILE  program.   The 
variability  may  also  be  influenced  by  the  quality  of  the 
published  load  test  results  and  subsurface  investigations. 
The  degree  to  which  these  factors  affect  the  distribution  of 
results  is  not  presently  available,  but  the  extent  to  which 
the  quality  of  these  factors  can  be  controlled  should  yield 
a  reduced  coefficient  of  variation.   Furthermore,  the  corre- 
lation of  the  present  study  may  be  viewed  even  more  favor- 
ably in  light  of  the  breadth  of  the  data  field. 

Only  the  results  of  static  analyses  were  considered  in 
the  reliability  study.   For  piles  in  predominantly  cohesion- 
less  soils,  the  Meyerhof  method  was  followed,  employing  the 
necessary  parameters  as  discussed  in  Chap.  3.   For  piles  in 
cohesive  soils,  the  alpha  method  was  used  as  discussed  in 
pg.  90.   In  cases  where  there  was  insufficient  data  concern- 
ing the  cohesive  strength  of  the  soil,  a  drained  strength 
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condition  was  assumed,  and  the  beta  method  was  employed  for 
the  analysis  as  detailed  in  Chap.  4  starting  on  pg.  98. 

Case  Histories  from  IDOH 
Several  case  histories  of  unusual  or  difficult  pile- 
driving  conditions  were  provided  by  Indiana  Department  of 
Highways  (IDOH).   A  number  of  these  case  histories  were  res- 
tudied  with  use  of  the  PILE  program  in  order  to  determine  if 
any  of  these  conditions  could  have  been  foreseen.   The  case 
histories  chosen  for  study  are  considered  representative  of 
the  type  of  problems  which  may  be  encountered  under  present 
pile-driving  practice.   For  all  cases  studied,  the  results 
of  subsurface  investigations  provided  were  assumed  to  be 
reasonably  representative  of  in-situ  soil  conditions. 

Project  B-14265 

This  case,  in  many  ways,  is  typical  of  frequent  diffi- 
culties in  field  operations.   A  tip  elevation  has  been 
predetermined  at  which  the  desired  bearing  capacity  would  be 
developed.   The  problem,  then,  is  to  choose  a  driving  system 
which  can  deliver  efficiently  the  necessary  energy  to 
penetrate  the  pile  to  the  desired  tip  elevation. 

In  this  case,  14  in.  diameter  steel  shell  piles  with  an 
allowable  load  of  40  tons  were  required  to  be  driven  to  a 
predetermined  tip  elevation.   Installation  was  initiated 
with  a  Vulcan  II  hammer  and  completed  with  a  Vulcan  I.   Upon 
termination  of  the  driving  sequence,  the  bearing  value  in 
tons  of  the  pile  was  determined  by  use  of  the  Engineering 
News  formula. 
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The  PILE  program  yielded  the  following  results.  First, 
assuming  that  the  subsurface  data  were  representative  of  the 
in-situ  conditions,  the  ultimate  static  capacity  of  the  pile 
was  approximately  42  tons.  The  ultimate  bearing  capacity  is 
considerably  lower  than  would  be  anticipated  for  an  allow- 
able bearing  capacity  of  40  tons. 

Secondly,  the  results  of  a  dynamic  analysis  indicate 
that  the  use  of  a  Vulcan  II  would  result  in  possible  hard 
driving  conditions.  The  analysis  was  initially  conducted 
assuming  the  manufacturer's  rated  energy.   At  the  efficiency 

level  of  the  rated  energy,  the  resulting  blow  counts  (60 
blows/ft)  were  not  excessive,  but  were  close  to  the  upper 
limit  of  acceptable  driving  criteria.   However,  as  previ- 
ously demonstrated,  the  actual  efficiencies  in  the  field  may 
vary  considerably.   At  these  lower  efficiency  levels,  the 
Vulcan  II  becomes  incapable  of  efficiently  driving  to  the 
desired  tip  elevation.   The  Vulcan  I  hammer,  according  to 
the  analysis,  is  able  to  drive  the  pile  to  the  designated 
tip  elevation,  even  at  the  lower  spectrum  of  efficiency  lev- 
els.  However,  it  should  be  recognized  that  the  soil  resis- 
tance at  the  stated  tip  elevation  is  only  approximately  42 
tons.   If  the  intended  ultimate  soil  resistance  was  80  tons 
(assuming  a  safety  factor  of  2),  it  is  doubtful  whether  the 
Vulcan  I  would  have  been  able  to  efficiently  drive  the  pile. 

Thirdly,  the  bearing  values  determined  from  the 
Engineering  News  formula  are  indeed  erroneous  in  their 
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implications.  If  piles  of  a  particular  type  are  driven  to 
virtually  the  same  tip  elevation  (assuming  no  significant 
change  in  the  soil  profile),  then  their  bearing  capacity  is 
determined  by  the  resistance  developed  in  the  surrounding 
soil  and  independent  of  the  driving  system  employed.   For 
this  case,  the  driving  records  indicate  that  the  bearing 
value  of  the  piles  driven  with  a  Vulcan  I  are  nearly  double 
the  amount  computed  for  those  driven  with  a  Vulcan  II.   The 
discrepancy  is  inherent  in  the  dynamic  equation,  which  is 
primarily  a  function  of  an  impact  energy  and  not  of  the 
resistance  developed  in  the  surrounding  soil. 

Project  B-14321 

An  alternate  method  for  termination  of  pile-driving  is 
also  often  employed.   In  this  case,  the  criterion  for  termi- 
nation is  based  on  a  required  final  set  which  would 
correspond  to  a  desired  bearing  value  of  the  pile  as  com- 
puted by  the  Engineering  News  formula.   The  total  length  of 
the  pile  is  dependent  on  the  dynamic  resistance  encountered 
during  driving. 

In  this  case,  two  pile  types  of  different  allowable 
bearing  capacity  were  utilized.   A  14  in.  diameter  steel 
shell  was  required  to  be  driven  to  a  depth  at  which  a  40  ton 
capacity  could  be  developed.   Similarly,  an  H-pile  (12HP53) 
was  to  be  driven  to  attain  a  final  set  representative  of  50 
ton  capacity.   A  diesel  hammer, MKT  DE-20/30  was  used  for  the 
driving  system.   As  previously  stated,  the  final  set  was 
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predetermined  as  per  the  Engineering  News  formula. 

Installation  procedures  under  this  criterion  will 
experience  much  variability  for  basically  two  reasons. 
First,  cohesive  soils,  in  particular,  exhibit  a  reduced 
resistance  during  driving  due  to  excess  pore  pressures  gen- 
erated.  Therefore,  if  termination  of  driving  is  made  depen- 
dent on  dynamic  resistance,  the  pile  may  be  driven  to  a 
depth  considerably  greater  than  required  to  develop  the 
required  static  bearing  capacity.   Second,  any  change  in  the 
energy  of  the  driving  system  would  be  reflected  in  the  final 
length  of  the  pile.   If  the  efficiency  of  the  system  is 
reduced  during  driving  (as  is  often  the  case  with  some  types 
of  dlesel  hammers),  the  pile  driving  would  be  terminated  at 
shallower  depths  not  because  of  any  Increased  soil  resis- 
tance but  because  the  energy  is  not  available  for  the  same 
rate  of  penetration.   In  either  case,  the  result  would  be 
piles  of  variable  length  but  allegedly  similar  bearing  capa- 
cities. 

This  condition  is  evident  in  the  driving  records  of 
this  case.   There  Is  considerable  disparity  in  the  total 
lengths  of  the  piles  of  comparable  recorded  bearing  values. 
An  analysis  using  the  PILE  program  demonstrates  that  these 
variable  lengths  represent  similar  variability  in  ultimate 
bearing  capacity.   It  was  found  that  some  of  the  14  in. 
shells  may  have  a  static  capacity  as  low  as  36  tons,  whereas 
capacities  of  118  tons  were  computed  for  some  of  the  H- 
piles.   In  addition,  this  criterion  can  result  in  overdriven 


211 

piles  which  often  produces  considerable  pile  damage.   A 
dynamic  analysis  of  the  H-piles  indicated  the  the  possibil- 
ity of  a  highly  stressed  condition  near  the  tip.   Stresses 
as  high  as  24  ksi  were  found  in  the  vicinity  of  the  pile 
point. 

Project  B-12309 

In  this  case,  the  PILE  program  was  not  used  for  several 
reasons.   First,  there  is  insufficient  real  subsurface  data, 
and  presumptive  values  would  be  required.   Secondly,  and 
more  Importantly,  the  driven  pile  will  carry  the  applied 
loads  virtually  in  point  bearing.   In  order  to  accomplish 
this,  the  pile  needs  to  be  driven  through  stiff  clay  and 
some  layers  of  soft  and  hard  shale.   The  fundamental  assump- 
tion of  the  point  capacity  models  is  that  there  is  suffi- 
cient deformation  of  the  pile  point  to  mobilize  ultimate 
point  resistance.   The  problem  may  be  circumvented  by  model- 
ling the  rock  (shale)  layers  with  comparatively  high  'N' 
values.   Similarly,  rock  layers  of  variable  hardness  may  be 
modelled  to  reflect  anticipated  in-sltu  conditions 

This  case  is  an  example  for  which  the  unmodified  ver- 
sion of  WEAP  might  be  used.   The  unmodified  WEAP  would  prove 
more  versatile  in  that  the  distribution  of  ultimate  soil 
resistance  may  be  varied  to  reflect  a  virtually  point  bear- 
ing pile.   The  total  resistance  may  be  specified  at  approxi- 
mately 100%  at  the  point  (or  any  other  reasonable  estimate). 
A  driving  system  may  then  be  chosen  which  could  efficiently 
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penetrate  through  intermittent  layers  of  hard  shale. 

It  should  be  noted,  however,  that  the  purpose  of  the 
WEAP  analysis,  in  this  case,  is  to  determine  an  efficient 
driving  system  for  a  hypothetical  resistance  model,  a  model 
which  may  not  reflect  the  actual  subsurface  conditions.   In 
other  words,  the  analysis  will  be  used  to  determine  which 
system  can  most  effectively  penetrate  intermittent  hard 
layers  in  order  to  reach  bedrock.   Furthermore,  the  analysis 
will  yield  valuable  information  concerning  the  dynamic 
stresses  developed  during  driving,  which  in  this  case  may  be 
roughly  doubled.   The  analysis  should  be  scrutinized  for 
possible  stresses  in  excess  of  the  yield  criteria  of  the 
pile  material. 
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CHAPTER  8 
SUMMARY,  CONCLUSIONS,  AND  RECOMMENDATIONS 

The  present  study  presumes  that  piles  are  the  most 
appropriate  foundation  type  based  upon  structural  and  load- 
ing considerations,  subsurface  conditions,  estimated  perfor- 
mance, and  economy  of  construction.   Thus,  this  study 
reviews  recent  advances  in  this  field  and  presents  a 
comprehensive  method  of  analysis  in  the  form  of  a  computer 
program.   It  was  necessary  to  design  the  program  in  such  a 
manner  that  it  would  be  generally  applicable  to  various  pile 
types  and  soil  conditions,  viz.,  bridge  piles  in  the  State 
of  Indiana . 

Summary 
General  Criteria 
In  some  essential  respects,  the  design  of  deep  founda- 
tions is  analogous  to  shallow  foundations.   The  critical 
problem  is  to  determine  the  ultimate  load  which  a  deep  foun- 
dation can  sustain.   The  ultimate  load  is  then  that  load 
which  can  cause  either  the  structural  failure  of  the  founda- 
tion itself  or  the  bearing  capacity  failure  of  the  soil. 
For  most  situations,  ultimate  load  is  determined  by  soil 
failure.   The  failure  mechanism  is  characterized  by  punching 
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shear  under  the  point,  accompanied  or  preceded  by  direct- 
shear  failure  along  the  shaft. 

Load  Transfer 

The  ultimate  load  of  the  pile-soil  system  is  sustained 
by  transferring  the  load  to  the  adjacent  soil.   The  load 
transfer  at  ultimate  capacity  occurs  simultaneously  along 
the  pile  shaft  and  the  bearing  area  of  the  pile  point  and 
involves  a  mass  of  soil  extending  to  considerable  distances 
from  the  pile.   The  displacement  needed  to  mobilize  skin 
resistance  is  small  compared  to  that  for  point  resistance. 
Ultimate  skin  resistance  is  reached  much  sooner  than  point 
resistance  and  the  portion  of  the  load  carried  by  the  point 
is  smaller  at  working  conditions  than  at  failure. 

The  manner  in  which  the  ultimate  load  is  transferred  to 
the  adjacent  soil  can  be  significantly  altered  by  the  pres- 
ence of  residual  stresses  in  the  pile.   The  generation  of 
residual  stresses  is  a  function  of  the  cyclic  loading 
mechanisms  of  pile  installation.   Residual  stresses  are  pro- 
duced by  shaft  friction  in  preventing  elastic  rebound  of  an 
unloaded  pile,  thus  entrapping  elastic  strains.   The  pres- 
ence of  residual  stresses  may  alter  the  distribution  of 
shaft  friction  from  a  triangular  mode  of  transfer  to  a  para- 
bolic mode.   Neglect  of  residual  stresses  in  analyzing  pile 
load  tests  results  in  usually  overestimating  pile  shaft 
capacity,  underestimating  point  capacity,  and  incorrectly 
determining  the  actual  resistance  distribution  at  failure. 
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Pile  type  and  ins  tallat Ion  effect  may  also  alter  the 
load  response  of  the  pile.   The  prominent  effect  of  driven 
piles  in  cohesionless  soils  is  the  compaction  of  the  soil  by 
displacement  and  vibration,  resulting  in  permanent  rear- 
rangement and  some  crushing  of  the  particles.   The  principal 
effect  of  driven  piles  in  cohesive  soils  is  the  structural 
alteration  of  the  soil  surrounding  the  pile.   The  altera- 
tions generate  considerable  excess  pore  pressures  around  the 
pile  with  subsequent  strength  regain  with  the  dissipation  of 
the  pore  pressures. 

Negative  skin  friction  is  mobilized  by  relative  dis- 
placement of  the  surrounding  soil  with  respect  to  the  pile. 
The  negative  friction  may  be  considered  as  a  superimposed 
axial  load.   Neglect  of  this  possible  condition  can  cause 
excessive  settlements  of  the  piles,  with  severe  damage  or 
even  collapse  of  the  structure  supported  by  the  piles. 
Several  methods  are  available  to  reduce  negative  skin  fric- 
tion, Including  Installing  piles  within  casings  or  coating 
them  with  bitumen. 

Static  Analysis 

For  design  purposes,  the  ultimate  load  is  separated 
into  two  components:  the  point  load,  and  the  shaft  or  skin 
load.   The  fundamental  assumption  is  that  ultimate  point  and 
shaft  resistances  are  mobilized  simultaneously.   The  analyt- 
ical models  chosen  for  design  purposes  are  distinguished 
with  respect  to  soil  type. 
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Cohesionless  Soils 

Ultimate  load  capacity  in  cohesionless  soils  in  terms 
of  both  point  and  shaft  resistance  is  expressed  as  a  func- 
tion of  overburden  pressure.   However,  the  analytical  rela- 
tionships hold  only  when  the  pile  point  is  above  a  certain 
critical  depth .   Below  the  critical  depth,  the  point  resis- 
tance and  average  skin  friction  remain  practically  constant 
in  a  homogeneous  sand  deposit,  due  to  effects  of  soil 
compressibility,  crushing,  arching,  and  other  factors.   A 
method  is  proposed  by  Meyerhof  which  determines  the  point 
and  shaft  capacities  in  terms  of  limit  values .   The  model 
proposed  by  Vesic  requires  detailed  knowledge  of  the 
strength  and  deformation  characteristics  of  the  soil  strata 
and  also  of  the  variation  of  density  and  water  content 
within  those  strata.   The  limit  values  are  directly  deter- 
mined from  such  field  tests  as  the  static-cone  penetration 
test  or  standard  penetration  tests. 

Certain  recommendations  are  made  to  modify  the  esti- 
mates of  ultimate  load  capacity  to  account  for  the  effects 
of  pile  type  and  installation  procedures.   In  addition,  a 
reduction  factor  is  introduced  to  account  for  scale  effects 
of  large  diameter  piles. 

Recent  correlations  have  suggested  that  both  ultimate 
point  and  shaft  resistance  may  not  reach  a  limit  value  but 
indeed  continue  to  increase  with  the  mean  normal  stress, 
albeit  at  a  considerably  slower  rate.   However,  the  curves 
developed  for  the  new  correlations  indicate  an  inherent 
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Incoas is tency  in  the  results.   Furthermore,  the  new  correla- 
tions are  not  supported  by  more  recent  studies.   A  statisti- 
cal study  of  the  results  of  instrumented  load  tests  con- 
firms, if  only  qualitatively,  the  occurrence  of  a  limit 
value  for  both  unit  point  and  shaft  resistance. 

Pile  foundations  are  normally  constructed  as  groups  of 
closely  spaced  piles.   Pile  spacing  should  be  such  that  the 
group  capacity  is  not  less  than  the  sum  of  the  capacities  of 
the  individual  piles.   However,  the  ultimate  load  of  a  group 
may  be  less  than  the  sum  depending  on  soil  type,  size  and 
shape  of  the  group,  spacing  and  length  of  piles,  and  con- 
struction procedures. 

The  allowable  design  load  for  groups  is  often  deter- 
mined from  settlement  considerations.   The  settlement 
analysis  of  pile  foundations  is  somewhat  similar  to  that  of 
shallow  foundations.   However,  distinct  differences  may 
exist  as  a  result  of  installation  procedures.   In  addition, 
the  settlement  of  a  group  is  usually  more  than  that  of  a 
single  pile  with  comparable  working  load.   Predictions  of 
total  settlement  can  be  considerable  improved  by  experience 
obtained  from  observations  on  a  regional  basis. 
Cohesive  Soils 

Deep  foundations  in  clay  are  more  critically  affected 
by  the  rate  of  loading  of  the  pile.   Significant  pore  pres- 
sures may  be  generated  during  the  loading  stage.   The  rate 
of  pore  pressure  dissipation  implicitly  determines  the 
analytical  method  chosen  for  an  assessment  of  bearing 
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capacity.   If  significant  pore  pressures  are  expected  to  be 
Induced  due  to  the  nature  of  the  soli,  an  undralned,  short- 
term  ultimate  load  capacity  should  be  computed.   However,  If 
pore  pressures  Induced  for  normal  rates  of  load  application 
dissipate  fairly  rapidly,  then  an  effective  stress-drained 
analysis  may  be  more  appropriate. 

For  point  capacity ,  an  analysis  based  on  drained  condi- 
tions is  performed  similarly  to  the  method  developed  for 
coheslonless  soils.   Otherwise,  a  semi-empirical  bearing 
capacity  factor  is  applied  to  the  undralned  cohesion  of  the 
soil  at  the  pile  base. 

Several  methods  are  available  to  determine  the  ultimate 
shaft  capacity  of  piles  in  clay.   Not  all  of  the  methods  are 
universally  applicable  and  best  results  are  obtained  with 
discrete  applications  of  the  models  with  respect  to  soil 
type  and  loading  rate. 

The  alpha  method  is  conventionally  used  to  evaluate  the 
ultimate  shaft  capacity  in  clay  in  undralned  conditions. 
The  shaft  friction  is  a  function  of  the  undralned  strength 
of  the  clay  modified  by  the  alpha  factor.   The  factor  is  a 
ratio  of  the  pile-soil  adhesion  and  the  undralned  shear 
strength  of  the  clay. 

The  beta  method  may  be  employed  when  it  is  determined 
that  the  rate  of  pore  pressure  dissipation  is  to  be  so  rapid 
that  for  normal  rates  of  load  application,  drained  condi- 
tions will  generally  prevail  in  the  soil  near  the  pile 
shaft.   The  beta  factor  modifies  the  effective  overburden 
pressure. 
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Impressive  results  have  been  obtained  with  the  use  of 
the  lambda  method .   It  has  been  extensively  used  to  predict 
the  shaft  capacity  of  heavily  loaded  pipe  piles  for  offshore 
structures.   The  lambda  coefficient  was  found  to  be  a  func- 
tion of  pile  penetration. 

The  alpha  method  is  highly  sensitive  to  measured  varia- 
tion in  undrained  shear  strength,  whereas  variations  of  this 
parameter  may  be  eclipsed  by  the  effective  overburden  pres- 
sure explicit  in  the  lambda  method.   The  beta  and  lambda 
methods  have  been  found  to  give  better  results  for  normally 
consolidated  soils.   The  alpha  and  lambda  methods  provide 
reasonable  correlations  for  overconsolidated  soils. 

In  order  to  avoid  introducing  significant  scale  effects 
of  pile  diameter  on  the  ultimate  point  resistance  In  stiff 
fissured  clay,  a  reduction  factor  is  also  recommended. 

A  set  of  partial  safety  factors  are  proposed  in  order 
to  more  directly  assess  the  influence  of  various  factors  on 
the  design  process.   The  overall  safety  factor  is  expressed 
as  a  function  of  the  partial  factors  for  soil  resistance  and 
load.   The  partial  safety  factors  may  be  reassessed  If  an 
unsatisfactory  probability  of  ultimate  failure  results. 

Dynamic  Analysis 

The  need  to  corroborate  the  load  capacity  of  driven 
piles  in  the  field  has  led  historically  to  the  development 
of  a  number  of  dynamic  formulas .   The  rate  of  pile  penetra- 
tion afforded  a  means  of  relating  driving  resistance  to 
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ultimate  capacity.   The  fundamental  assumption  of  all  the 
formulas  is  that  the  dynamic  resistance  encountered  during 
driving  is  equal  to  the  load  capacity  of  the  pile  under 
static  loading.   Most  formulas  are  based  on  the  principles 
of  a  kinetic  energy  converted  to  the  work  of  penetrating  the 
soil  a  set  distance.   Not  all  of  the  formulas  are  equally 
reliable  and  only  experience  on  a  regional  basis  can  improve 
their  predictability. 

With  the  advent  of  the  computer,  it  was  possible  to 
analyze  the  mechanics  of  pile  driving  using  wave  theory. 
The  wave  equation  analysis  examines  the  transmission  of 
elastic  waves  along  the  length  of  the  pile.   The  main  objec- 
tive in  using  the  wave  equation  approach  is  to  obtain  a 
better  relationship  between  ultimate  pile  load  and  pile  set, 
as  well  as  providing  a  means  of  assessing  the  driveability 
of  a  pile  with  a  particular  set  of  equipment.   The  approach 
also  enables  a  rational  analysis  to  be  made  of  the  stresses 
in  the  pile  during  driving.   The  hammer-pile-soil  system  is 
discretized  and  represented  by  a  system  of  springs,  dash- 
pots,  and  mass  elements.   The  second  order  differential  wave 
equation  is  expressed  in  finite  difference  form.   The 
resulting  equations  are  solved  simultaneously  for  each  ele- 
ment for  each  time  interval  considered.   A  number  of  parame- 
ters are  required  with  varying  degrees  of  importance  to  the 
results  of  the  analysis.   The  reliability  of  the  analysis  is 
dependent  on  the  quality  of  the  hammer-pile-soil  model  used 
to  represent  the  in-situ  conditions. 
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A  computer  program  PILE  was  also  developed  to  integrate 
both  the  static  and  dynamic  analyses  of  pile  foundations. 
The  static  analysis  consists  of  various  methods  previously 
discussed  and  the  dynamic  analysis  is  comprised  of  a  set  of 
dynamic  formulas  and  the  wave  equation  analysis.   The  relia- 
bility of  the  program  was  tested  on  published  results  of 
load  tests,  and  on  case  histories  of  difficult  driving  con- 
ditions provided  by  IDOH. 


Conclusions 

A  computational  package  PILE  has  been  developed  which 
enables  the  designer  to  analyze  pile  foundations  statically 
and  dynamically  in  an  Integrated  and  comprehensive  manner. 
The  analytical  models  for  static  analysis  were  chosen  on  the 
basis  of  extensive  empirical  corroboration  and  the  facility 
with  which  the  pertinent  and  required  parameters  may  be 
obtained.   For  the  dynamic  analysis,  pile  driving  formulas 
are  provided  to  accomodate  present  design  practice.   In 
addition,  by  integrating  the  wave  equation  analysis  into  the 
package,  it  was  possible  to  simplify  and  reduce  the  amount 
of  input  data  previously  required  to  successfully  perform  a 
wave  equation  analysis. 

As  a  whole,  the  following  conclusions  may  be  stated 
concerning  the  computational  package  (PILE): 

(1)   Estimates  of  ultimate  load  capacities  have  been 
shown  to  be  of  reasonable  accuracy  for  some  50 
cases,  including  a  variety  of  soils  and  pile 
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types . 

(2)  Results  of  the  dynamic  formulas  can  be 
predicted  only  within  wide  limits  but  can 
be  improved  on  a  regional  basis. 

(3)  The  wave  equation  has  proven  to  be  a  most 
versatile  tool.   A  detailed  analysis  of 
case  histories  has  demonstrated  that  the 
wave  equation  analysis  affords  a  useful 
means  of  assessing  the  driveability  of  a 

pile  with  a  particular  set  of  equipment,  and  is 
the  only  means  of  rationally  evaluating  the 
stresses  generated  during  driving.   Finally, 
the  analysis  renders  at  least  a  qualitatively 
correct  picture  of  the  driving  mechanism. 
(4)   The  computational  package  is  unique  in  its 
comprehensive  integration  of  static  and 
dynamic  pile  analyses.   This  package  is 
expected  to  be  of  considerable  value  to  pile 
design  in  general,  and  to  highway  bridge 
designers  in  particular. 

Recommendations  for  Further  Study 
The  present  study  by  no  means  exhausts  the  possibili- 
ties of  improving  the  analysis  and  design  of  pile  founda- 
tions.  To  complete  the  topic  of  this  research,  the  follow- 
ing additional  areas  of  detailed  study  are  recommended: 

(1)   A  synthesis  of  the  state-of-art  for  pile  load  tests 
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A  number  of  new  techniques  have  been  Introduced 
fairly  recently  that  offer  a  faster  and  more 
economical  determination  of  ultimate  capacity. 

(2)  A  synthesis  of  the  state-of-art  for  dynamic 
measurements.   Since  the  introduction  of  dynamic 
measurements,  significant  advances  have  been  made 
in  the  quality  of  the  measurements,  and  these  are 
useful  adjuncts  to  wave  equation  predictions. 

(3)  Implementation  and  debugging  of  PILE  program. 
Extensive  use  of  the  PILE  program  may  dictate 

certain  modifications  in  order  to  more  closely 
serve  the  design  and  construction  procedures  of 
the  IDOH  and  other  highway  agencies. 

(4)  Additional  correlations  with  IDOH  case  histories. 
Such  comparisons  will  more  clearly  define  the 
usefulness  of  the  package  in  its  present  form. 

In  order  to  further  enhance  present  knowledge  of  pile 
design  and  construction,  the  following  topics  are  recom- 
mended as  content  for  future  research  projects: 

(1)  Improved    dynamic    analysis. 

The  capacity  to  make  dynamic  measurements  and 
apply  them  to  the  design  of  bridge  piles  should 
be  developed  for  the  IDOH. 

(2)  New  load  testing  procedures. 

Modern  and  rapid  procedures  are  now  available 
for  load  testing.   Development  of  a  suitable 
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version  of  these  procedures  for  the  IDOH  would 
make  It  economically  feasible  to  run  far  more 
of  them.   This  would  in  turn  have  a  very 
favorable  impact  on  present  practice. 

(3)  Pile    group    behavior. 

Present    analytical    models    are    based    on    the 
mechanics    of    a    single    pile    and    extended    to    pile 
groups.       More    research    is    needed    in    the    in-situ 
performance    of    groups. 

(4)  Point    bearing    in   hard    rock. 

The    failure    mechanisms    of    piles    founded    on    rock 
need    to    be    more    closely    investigated. 
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Appendix  A  -  PILE  Program 


A  complete  listing  of  PILE  is  subsequently  provided. 
Tapes  of  the  PILE  program  are  available  from  Purdue  Univer- 
sity.  The  program  was  written  in  Fortran  language.   The 
following  specifications  are  necessary  for  normal  operations 
on  the  CDC  6500: 

core  used  =  056000b  octal  words 
time  used  *■  026.080  cpu  seconds 

nl  -  127400  words 

ex  =  33.082  sec 
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program  main  ( tapeS , tape6 , tapeS , plot ) 
pile  capacity 

Integer  shea r,soll( 100), cons  1(100), Ins tl 

real  len, layer , nq ( 100 ) ,ks ( 100 ) ,nc ( 100 ) ,ko( 100 ) 

Integer  wav 

dimension  phi ( 100 ) , ql( 100 ) , xl ( 100 ) , qp ( 10 , 100 ) , depth ( 10 , 100 ) , 
lfl(100),f s(10,100),n(100),qpcap(10,100),f scap{10,100),qult(10,100) 
2,cu(100),gam(100),strs(10,100),zc(100),xc(100),del(100), 
3bet(10,100),alpha(100),ocr(100),bp(10,100),atap(10,100),ncorr(100) 

pile  and  soil  characteristics 


lr-5 

read(lr,3)  nstrat,b,apnt,ashft,len, qprmt ,shear,prcnt,lnstl,neqn, 
Iwav 
3  format(i4,3f8.6,2f8.2,a4,f4.2,a6,2x,2l4) 

wrlte(6,100) 
100  format (/// Ix, 72hpurdue  university  ultlmat 

le  static  pile  capacity) 

write(6,106) 

format (// Ix, 17hplle  -  soil  model) 

wrlte(6,lll) 


106 

111 


format (//lx,9h8oll  data) 

if (shear.eq. 'dc')wrlte(6,112) 

if (shear. eq. 'uu ')wrlte(6, 113) 

112  format ( /3x,46h8hear  strength  : 

113  format (/3x,49hshear  strength  : 
write(6,114)nstrat 

114  format (/3x, 19hnumber  of  strata 


drained  -  long  term  condition) 
undrained  -  short  term  condition) 

-  ,12) 


dolOl=l ,nstrat 

read(lr,l)soil(i),xl(i),n(i),ncorr(l),phl(l),nq(i),cu(l),gam(l), 
lzc(l),ks(l),del(l),alpha(i),nc(i),consl(i),ocr(l) 

1  format(a4,f8.2,2i4,f4.2,f4.1,f4.2,f4.1,5f4.2,a4,f4.2) 

phi (l)-phi(i)*3. 14 15927/ 180. 
del(l)-del(i)*3.14159  27/180. 
gam(i)=«gam(l)/2000. 
if  (cu(i).eq.O.O)go  to  7 
if (consl (1 )  .eq  . 'oc  '  )go  to  4 
ko(l)-(1.0-sln(phl(l))) 
go  to  7 
4  if (ocr(l).eq.O.O)go  to  6 

ko(l)-(l .0-sln(phl(l)))*sqrt(ocr(i)) 
go  to  7 

6  ko(l)='1.5*(1.0-sin(phi(i))) 

7  xc(l)=zc(i)*b 
if(i.eq.l)go  to  2 

if (xc(l).ne.xc(i-l))go  to  2 
xc(l)-xc(l)-xl(l-l) 

2  if  (solid). eq. 'arn')qcfac-4.0 
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if  (  solid  ).eq. 'lim')qcfac  =  3.0 

if  (soiKD.eq.  'arg  '  )qcf  ac  =  2  .0 

if (ncorr(l).eq.O)ncorr(t)-n(i)  h 

ql(i)-qcf ac*ncorr (1 )  I 

if (n(i).eq.O)ql(i)-cu(i)*nc(i) 

if (cu(i).gt.O.O)    go    to    9  I 

fl(i)-qcfac*0.005*n(i)  I 

if (prcnt.ge.l.0)fl(i)-1.5*fl(i)  ■ 

go    to    10 
9    if (shear. eq . 'uu ')go    to    5  .         | 

fl(i)=cu(i)  I 

if (prcnt.ge.l.0)fl(i)-1.5*fl(i) 

go    to    10  ^ 

5    fl(i)-alpha(i)*cu(i)  I 

10    continue  ' 

layer"0.0  b 

ss trs^O  .0  I 

qqp=0.0 

ffs-O.O 

ffscap'0.0  I 

bbp^'b  I 

do    12    i-l,nstrat 

write(6,115)  I 

115  format  (/129h ■ 

1 

write(6,116)i,xl(i),phi(i)*180./3.1415927,cu(i)  | 

116  format (/i2 , lx,20h8tratum  thickness  ■  , f 6 .2 , lx,3hf t . , lOx, 30hangle  o 
If  internal  friction   -  ,f 6 .2 , lx,4hdeg.  ,  3x, 30hundralned  shear  stren^ 
2gth     -  ,f5.2,lx,4htsf .)  I 

if (gam(i).eq.0.0)go  to  118  ■ 

wrlte(6,117)n(i),ncorr(l),nq(l),nc(l) 

117  format (3x, 20haverage  n  value  =  ,  16 , Ix , 5hb/f t . , Ix, lh( , 13 , Ih  ) , 2x,  || 
130hbearing  capacity  factor,  nq  "  , f 6  .2  ,  8x, 30hbearlng  capacity  factj 
2or ,  nc  =  ,  f 5  .2  ) 

write(6,119)gam(i)*2000.,k.s(l),ko(i) 

119  f ormat(3x,20hunlt  weight  -  , f 6 .2 , Ix, lOhlbs /cu .f t . , 3x, 30hcoef ■ 
1.  of  earth  pressure,  ks  ~  , f 6 .2 , 8x, 30hcoef .  of  earth  pressure,  ko  m 
2-  ,f5.2) 

write(6,120)zc(l),del(l)*180./3.1415927,alpha(i)  « 

120  f ormat(3x,20hcrltical  depth  r  -  ,f6.2,lx,  3x, lOx, 30hangle  of  shH 
laft  friction      =  ,f 6  .2 , Ix, 4hdeg. ,3x, 30hadhes ion  coefficient 

2    -  ,f5.2) 

go  to  122  m 

118  write(6,121)n(l),ncorr(l)  ■ 

121  format  (3x,20haverage  n  value    =»  ,  16  ,  Ix,  5hb/f  t .  ,  Ix,  lh(  ,  13  ,  Ih  ) ) 

122  if (l.eq.n8trat)wrlte(6,123)  ^ 

123  format  (/129h ■ 

2 ) 

I 


i 


I 
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36 
37 

69 

61 
65 


38 
35 


32 
34 


70 

62 
66 


39 
33 


31 


40 


47 


48 
45 


nl-xl(i) 

do  13  j-l,nl 

x-J 

depth(l, J)-layer+x 

if (gam(i).eq.O.O)  go  to  8 

qp  and  fs  computations  in  terms  of  effective  stresses 

if (i .eq.nstrat )go  to  37 

if (ql(i).gt.ql(i+l))go  to  34 

8tr3(i,j)"8  8tr8+gam(i)*x 

If ( (cu(i ) .ne .0 .0) .and . (shear .eq . 'uu ') )go  to  61 

qp(i, j)=  strsCi, j)*nq(i) 

go  to  65 

qp(i, j)=cu(i)*nc(i) 

if (xc(i).le.O.O)go  to  38 

if (x.gt.xc(i))qp(i, j)=qp(i, j-1) 

go  to  35 

qp(i.  j)="qqp 

if (qp(i, j).ge.ql(i))qp(i, j)=ql(i) 

if(j.eq.l)go  to  32 

if (qp(i, j).eq.qp(i, j-l))ql(i)-qp(i, j) 

go  to  40 

strs(i,j)'"8strs+gam(i)*x 

if ( (cu(i ) .ne .0 .0) .and. (shear .eq . 'uu ') )go  to  62 

qp(i, j)=strs(i, j)*nq(i) 

go  to  66 

qp(i,  j)-cu(i)*nc(i) 

if  (xc(i).le.0.0)go  to  39 

if (x.gt.xc(i))qp(i, j)=qp(i,  j-1) 

go  to  33 

qp(i. j)=qqp 

if (qp(i, j).ge.ql(i))qp(i, j)=ql(i) 

if(j.eq.l)go  to  31 

if  (qp(i, j).eq.qp(i, j-l))ql(i)-qp(i, j) 

h-10.0*b 

hh-xl(i)-h 

if(x.lt.hh)  go  to  40 

if (xl(i).le.h)go  to  40 

qp(i,  j)-qp(i. j)-abs(ql(i)-ql(i+l))*(x-hh)/h 

if  (cu(i).gt.0.0)go  to  50 

if ( i . eq .nst rat  )go  to  47 

if (fl(i).gt.fl(i+l))go  to  44 

f8(i,j)-  strs(i, j)*ks(i)*tan(del(i)) 

if (xc(i).le.O.O)go  to  48 

if (x.gt.xc(i))fs(i, j)-fs(i, j-1) 

go  to  45 

fs(i,  j)-ffs 

if(fs(i,j).ge.fl(i))fs(i,j)='fl(i) 

if(j.eq.l)go  to  42 
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if(f8(i,j).eq.f8(i,j-l))fl(i)=fs(i,j) 

42  go  to  15 

44  fsd.J)-     strsCi,  j)*k3(l)*tan(del(l)) 
if (xc(i).le.O.O)go  to  49 
if (x.gt.xc(i))fs(l, j)=fs(i, j-1) 
go  to  43 

49  f8(i,j)-ff8 

43  if (fs(i, j).ge.fl(i))fs(i, j)=fl(i) 
if(j.eq.l)go  to  41 
if(fs(i,j).eq.f3(i,j-l))fl(i)=fs(i,j) 

41  h-10.0*b 
hh-xl(i)-h 
if (x.lt.hh)go  to  15 
if (xl(i).le.h)go  to  15 

fs(i,  j)=fs(i, j)-abs(fl(i)-fl(i+l))*(x-hh)/h 
go  to  15 

f8  computation8  for  cohesive  layer 


50 


56 


57 


63 
67 


58 
55 


52 
54 


64 
68 


59 
53 


51 


bet(i, j) 
if (depth 
bet(i,  j) 
if (depth 
if (i.eq. 
if(fl(i) 
if (shear 
fs(i, j)= 
go  to  67 
fs(i, j)= 
if (xc(i) 
if (x.gt . 
go  to  55 
fs(i, j)- 
if (f8(i, 
if (J.eq. 
if (fs(i, 
go  to  15 
if (shear 
fs(i,  j)- 
go  to  68 
f8(i, j)- 
if (xc(i) 
if (x.gt. 
go  to  53 
f8(i, J)- 
if (fs(i, 
if (j.eq. 
if (fs(i, 
h-10.0*b 
hh-xl(i) 
if (x.lt. 
if (xl(i) 
f8(i, j)- 


-k.o(i)*tan(phi(i)) 

(i,  j).lt  .50.0)go  to  56 

-0.15+(200.0-depth(i, j))*(bet(i, j)-0.15)/150.0 

(i, j).gt. 200.0 )bet(i,j)-0. 15 

n8trat)go  to  57 

.gt.fl(i+l))  go  to  54 

.eq.'uu')go  to  63 

str8(i, j)*bet(i, j) 

alpha(i)*cu(i) 
.le.O.O)go  to  58 
xc(i))f8(i,  j)  =  fs(i, j-1) 

ffs 


j).ge.fl(i))fs(i,J)-fl(i) 

l)go  to  52 

j).eq.fs(i, J-l))fl(i)-f8(i, j) 

.eq  .  'uu  '  )go  to  64 
8trs(i, j)*bet(i, j) 

alpha(i)*cu(i) 
.le.O.O)go  to  59 
xc(i))f8(i, j)-f8(i, j-1) 

ffs 

j).ge.fl(l))f8(i, j)-fl(l) 

l)go  to  51 

j).eq.fs(i, j-l))fl(i)«f3(i, j) 

-h 

hh)go  to  15 

.le.h)go  to  15 

f s(i, j)-ab8(fl(i)-fl(i+l))*(x-hh)/h 
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go  to  15 

qp  computations 

8  if (i.eq.nstrat )gotol7 

if (ql(i).gt.ql(i+l))gotol4 
17  qp(l,J)-qqp+ql(i)*x/(10.0*b) 
if(i.eq.l)go  to  19 
qp(i. j)-qqp+abs(ql(i)-ql(i-l))*x/(10.0*b) 

19  if (qp(i, j).ge.ql(i))qp(i, j)-ql(l) 
go  to  20 

1^  qp(l, j)-qqp+ql(i)*x/(10.0*b) 

if(i.eq.l)go  to  11 

qp(l. j)-qqp+ab8(ql(i)-ql(l-l))*x/(10.0*b) 
11  if (qp(i, j).ge.ql(i))qp(l,j)-ql(l) 

h-10.0*b 

hh-xl(i)-h 

if (x.lt .hh)goto20 

if (xl(i).le.h)go  to  20 

qp(i, J)-qp(l, J)-ab8(ql(i)-ql(l+l))*(x-hh)/h 

fs  computations 

20  if (i.eq.nstrat )goto27 

if  (fl(i).gt.fl(i+l))goto24 

27  f8(l,J)-ff8+fl(i)*x/(10.0*b) 
if(i.eq.l)go  to  28 

f9(i, j)-ff8+abs(fl(i)-fl(i-l))*x/(10.0*b) 

28  if(f8(i, j).ge.fl(i))f8(i, j)-fl(i) 
go  tol5 

24  fsd,  j)-ff8+fl(i)*x/(10.0*b) 
if(i.eq.l)go  to  25 

f8(i, j)=ffs+abs(fl(i)-fl(i-l))*x/(10.0*b) 

25  if(fs(i, j).ge.fl(i))fs(i, j)-fl(i) 
h-10.0*b 

hh-xl(i)-h 

if (x.lt .hh)gotol5 

if (xl(i).le.h)go  to  15 

fs(i, j)-fs(i, j)-ab8(f 1(1 )-f 1(1+1) )*(x-hh)/h 

point  and  shaft  capacities 

15  qpcapd,  J)-qp(i,  j)*apnt 

if  (prcnt.eq-.O.O)go  to  93 

bp(i,j)-bbp+x*p rent/ 100. 

atap(l,l)-(bbp+bp(i,j))*3. 14 159 27/2.0 

if(j.eq.l)go  to  92 

atap(l,j)-(bp(i,j)+bp(i,j-l))*3. 14 159 27/2.0 
92  ashf t-atap(l, j) 

9  3  fscap(i,l)="ff  scap+ashf  t*(f  8(1,  j))/2.0 
lf(j.eq.l)go  to  21 
fscapd,  j)=-ff  scap+ashf  t*(fs(i,  j)+f  s(i,  j-l))/2.0 
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21  f f scap«f scap ( i , j  ) 

lf(instl.eq.'bored')qpcap(l,j)=qpcap(i,j)/3.0 

if ( Inst l.eq.' bulb' )qp cap (l,j)-q p cap (i,j)*2. 0 

If (instl.eq. 'bored ') f scap ( i , j)=f scap(i, j)/2.0 

if (Instl.eq.'h  pile ' )f scap ( i , j )=f scap(i , j  )/2  .0 

qult(i,j)=qpcap(i,j)+fscap(i,j) 

if (qprmt .eq.O .0)  go  to  18 

if (qult(i, j) .ge.qprmt)  go  to  101 
18  if (len.eq.0.0)gotol3 

if (depth (i, j ) .ge . Ien)gotol0 1 
13  continue 

sstr8=strs (i,nl) 

qqp=qp(i,nl) 

ff s=f 8(i,nl) 

layer=depth(i,nl) 

bbp-bp(i,nl) 

12  continue 
101  write(6,107) 

107  f ormat(//lx,9hpile  data) 
write(6,108)instl 

108  format (/3x,25hmethod  of  installation  :  ,a6) 
write(6,109)b,apnt,a8hft 

109  format (/3x,20hpoint  width        =  ,  f 10  .6 , Ix, 3hf t . , 6x, 24hpoint  area 

1  -  ,f 10.6,lx,6h3q.f t. ,3x,23hshaft  area  -  ,flO 

2  .6, lx,6h8q .f t. ) 
if(prcnt.ne.0.0)write(6,110)prcnt 

110  format ( /3x, 16hpercent  taper  »  , f 5 .2 , Ix, lh_) 
write(6,10  3)qpcap(i, j) 

write(6,104)f scap(i, j) 
write(6,105)qult(i, j),depth(i, J) 

103  f ormat(////lx,31hultimate  point  capacity       =  , f 10  .  2 , lx,4htons ) 

104  format (/lx,31hultimate  shaft  capacity       =  , f 10  .2 , Ix, 4htons ) 

105  format (/Ix, 3 Ihultimate  total  pile  capacity  ■  , f 10  .2 , Ix, 4ht ons , 25x, 
129htotal  depth  of  penetration  »  ,f 10  .2 , lx,4hf eet ) 

if (neqn. eq .0 )go  to  201 

call  dynmc (qult(i,j),neqn,depth(i,j),apnt,ir) 

201  if (wav.eq.O)go  to  200 

call  8eg8(f8cap,qult(l,J),qpcap(l,J),depth(l,J),a8hft,ir) 

200  stop 
end 

subroutine  dynmc (ru,neqn,ll,aa,ir) 

real  n(6),l(6),ll 
integer  eqn(6) 

dimension  w(6),h(6),c(6),ef(6),wp(6),a(6),ep(6) 
l,cl(6),c2(6),c3(6),set(6),blow(6),fs(6) 

do  100  k=l ,neqn 
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l(k)-ll*12. 
a(k)-aa*144. 
100  continue 

wrlte(6,80) 
80  formatClhl ,///75h  dynamic 

1  formulas  for  pile  driving) 
do  10  k»l ,neqn 

read  (ir.ll)  eqn(k) , w(k) ,h(k) , c(k ) , ef (k ) , n(k ) , wp(k ) , cl (k) , c3(k ) , 
lep(k),fs(k) 
11  format(a6,2x,f8.0,4f4.2,f8.0,f4.3,f4.2,f8.0,f4.2) 

10  continue 
ru-ru*2000. 
do  12  k*l,neqn 
if (eqn(k) .eq . 'enr ' )go  to  20 
if (eqn(k).eq. 'hiley')go  to  21 
if (eqn(k) .eq . ' janbu ' )go  to  22 
if (eqn(k)  .eq . 'danish ' )go  to  23 
if (eqn(k) .eq . 'gates ' )go  to  24 

20  set(k)-(w(k)*h(k)/ru*f8(k))-c(k) 
write(6,31) 

31  format (/// Ix, 27hformula  :   engineering  news) 
write(6,32)w(k),c(k) 

32  format(//31x,22hweight  of  hammer,  w  -  , f 9  .0 ,4x, 4hlb8 . , 12x, 30hf act o 
Ir  for  energy  losses,  c  =  ,fll.2) 

write(6,33)h(k) 

33  format(33x,20hdrop  of  hammer,  h  -  ,  f 1 1  .2 , 2x, 3hin. ) 
go  to  13 

21  c2(k)-ru*f8(k)*l(k)/(a(k)*ep(k)) 
eiv-(w(k)+wp(k)*(n(k)**2))/(w(k)+wp(k)) 

set(k)-(ef (k)*w(k)*h(k))*eiv/ru*f8(k)-0.5*(cl(k)+c2(k)+c3(k)) 
write(6,41) 

41  format (/// Ix, 16hformula  :   hiley) 
write(6,42)w(k),wp(k) 

42  format (//31x,22hweight  of  hammer,  w  -  , f 9 .0 ,4x,4hlbs . , 21x, 21hweigh 
It  of  pile,  wp  -  ,f9.0,4x,4hlb8.) 

write(6,43)h(k),cl(k) 

43  format (33x,20hdrop  of  hammer,  h  -  ,f  1 1  .2  ,  2x, 3hin. , 9x, 34helas tic  co 
Impression  of  head,  cl  "  , f 1 1  .2 , 2x, 3hin. ) 

write(6,44)ef (k),c2(k) 

44  format (18x,35hefficiency  factor  for  hammer,  ef  =  ,  f 1 1  .2 , 14x, 34hela 
Istic  compression  of  pile,  c2  =  , f 1 1  .2 , 2x, 3hin. ) 

write(6,45)n(k),c3(k) 

45  format(19x,34hef f iciency  factor  for  impact,  n  -  , f 1 1  .2 , 12x, 36helas 
Itic  compression  of  ground,  c3  ■  , f 1 1 .2 , 2x, 3hin. ) 

go  to  13 

22  cd-0.75+0.15*wp(k)/w(k) 
set(k)=(w(k)*h(k))/(2.0*ru*fs(k)*cd)-(l(k)*ru)/(2.0*a(k)*ep(k)) 
write(6,51) 

51    format (/// Ix, 16hformula    :       janbu) 
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write(6,52)w(k),wp(k) 

52  format(//31x,22hweight  of  hammer,  w  =   f 9 .0 ,4x, 4hlbs . , 21x, 21hweigh 
It  of  pile,  wp  -  ,f9.0,4x,4hlbs.) 

write(6,53)h(k),a(k) 

53  format (33x, 20hdr op  of  hammer,  h  =  ,  f 1 1 .2 ,2x,3hin. , 16x, 27hcross-sec 
Ition  of  pile,  a  =  ,  f 1 1  .2 , 2x, 6hsq . in. ) 

write(6,54)ep(k),l(k) 

54  format ( 17x, 36hmodulus  of  elasticity  of  pile,  ep  =  ,  f 9  .0  ,  4x  ,4hpsi . , 
125x,17hpile  length,  1  =  , f 11  .2 , 2x, 3hin. ) 

go  to  13 

23  8et(k)-ef (k)*w(k)*h(k)/ru*f8(k)-sqrt(ef (k)*w(k)*h(k)*l(k)/ 
l(2.0*a(k)*ep(k))) 

write(6,61) 

61  format (/// Ix, 17hformula  :   danish) 
write(6,62)w(k),a(k) 

62  format (//31x, 22hweight  of  hammer,  w  »  ,  f 9  .0  ,4x,4hlbs . , 15x, 27hcross 
1-section  of  pile,  a  =  , f 1 1  .2 , 2x, 6hsq .in. ) 

write(6,63)h(k),l(k) 

63  format (33x, 20hdrop  of  hammer,  h  =  ,  f  11  .2  ,  2x, 3hin. , 26x, 17hpile  leng 
1th,  1  =  ,fll  .2,2x,3hin.) 

write(6,64)ef (k),ep(k) 

64  format ( 18x, 35heff iciency  factor  for  hammer,  ef  »  ,f 1 1  .2 , 12x, 36hmod 
lulus  of  elasticity  of  pile,  ep  =■  ,  f  9  .0  ,  4x,  4hpsi  .  ) 

go  to  13 

24  set(k)-10.0**(1.0-(ru*fs(k)/2000.)/(3.0/7.0*sqrt(ef (k)*w(k)* 
lh(k)/12.0))) 

write(6,71) 

71  format (/// Ix, 16hformula  :   gates) 
write(6,72)w(k),ef (k) 

72  format(//31x,22hweight  of  hammer,  w  =  , f 9  .0 ,4x,4hlbs . , 7x, 35hef f ici 
lency  factor  for  hammer,  ef  =  ,fll.2) 

write(6,73)h(k) 

73  format (33x, 20hdrop  of  hammer,  h  =  , f 1 1  .2 ,2x, 3hin. ) 

13  blow(k)-l .0/8et(k)*12.0 
write(6,74)ru/2000.*fs(k) 

74  format (// lx,34hultimate  dynamic  resistance,  ru  =  ,  f 6  .0 ,4x,4hton8 ) 
wrlte(6,75)9et(k) 

75  format ( lx,34hpermanent  set,  s  "  ,  f 8  .2  ,  2x, 3hin. ) 
write(6,76)blow(k) 

76  format { Ix, 34hdriving  resistance,        1  .0/s  =  ,  f 6  .0 , 4x , 9hblows/f t 
1.) 

12  continue 

ru-ru/2000. 

return 

end 

subroutine  segs(fscap,qu,qp,d,ashft,ir) 

dimension  f scap(10, 100),fsseg{10,100),nstrat(100),su(100), 
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10 


12 


13 
14 


11 


la(100),8tp(100),pm(100),alph(100),q8(100),sj(100),l(100), 
28su(100) 

read(ir,10)nseg,nlayer,atp,e,w 

f ormat(2i4,f8.3,f8.0,f8.2) 

do  11  j"l ,n8eg+l 

if ( j .eq .nseg+1 )go  to  13 

read(ir,12)nelm,nstrat(j),alph(j),a( j),qs(j),sj(j) 

f ormat(2i4,f8.2,f8.3,2f4.2) 

if (nstrat ( j) .eq . 0 )ns trat ( j )=ns trat ( j-1) 

if  (alph(  j).eq.O.O)alph(  j)='alph(  j-1) 

if (a(j).eq.O.O)a(j)=a(j-l) 

if  (qs(j).eq.O.O)qs(j)=qs( j-1) 

if (sj(j). eq. 0.0)8 j(j)=8j( j-1) 

8tp(j)-(a(j)*e)/(alph(j)*12.) 

pm( j) -a (j)*alph(j )*w/ 144000. 

l(j)-alph(j) 

go  to  11 

read(ir,14)nelm,qs(j),sj(j) 

f ormat(i4,20x,2f4.2) 

if  (qs(  j).eq.O.O)qs(j)=»qs(j-l) 

if(8j(j).eq.0.0)8j(j)=sj(j-l) 

continue 


27 


28 


21 
20 


ii-0 

f f seg=0.0 

do  20  i»l,nlayer 

jj-0 

do  21  j»l,n8eg 
if(i.ne.l)go  to  27 

jj-jj+l(j) 

if (astrat( j).ne.i)go  to  20 

go  to  28 

jj-jj+l(ii+l) 

if (nstrat(ii+l) .ne.i)go  to  20 

fssegCi, j)-f8cap(i, jj)-ffseg 

ff 8eg-f 8cap(i, j j) 

ii-l+ii 

8u(ii)-fs8eg(i,j)/qu 

continue 

continue 

8u(ii+l)-qp/qu 

call  weap(8tp,pm,qu,alph,q8,s j,8u,n8eg,d,atp,e,w) 

return 

end 


c 
c 
c 

c 
c 
c 


subroutine  weap (p8tp , ppm, prult ,palph,pq8,psj,psu,nseg,pxpt,pap, 
Ipep.prp) 


********** 


weap  wave  equation  analysis  for  piles  ********** 
this  program  was  developed  for  the  federal  highway  administration 
by  goble  &  associates,  inc. 

1980  version 
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c      for  information  regarding  the  program  coding  contact 

c  goble  &  associates,  inc. 

c  4423  emery  industrial  parkway 

c  warrensville  heights,  ohio  44128 

c  (216)-831-6131 

c 

c 

c      note  that  this  program  utilizes  a  data  file  which  contains 

c      proprietory  information,  this  data,  therefore,  may  not  be 

c      duplicated  in  any  form  without  the  expressed  written  permission 

c      of  either  the  fhwa  or  goble  consulting  engineers 

c 

c 

common  vinh,dinh,aoh,voh,doh,anh,vnh,dnh,sth,hm,am,sta,ma,esoil, 

1  aop,anp,dop,dnp,vop, vnp ,stp,pm,cdp,res,reso,sj,sok,qs,su, 

2  splice, depib.aram, ecus, ecap,ept,eanv,vfall,vcham,xpt,sjjj, 

3  emp , rho , dth , dtp , n, m, jrat , iult , rult , soi Im, dsacp ,  ■ 

4  fpto,iw,pcom,tdel, lout, out, expp,temi,temo,inp,stroko,strokn,vo,pcB 

5  , df in , jdou t , jpmax , ex , ico 1 , f intmx ,  temax , result , ismith , it er 

6  ,ityph,ipreig,vfallm,strniax,dcyl,pbar,area,  Jex 
common/dot/ibuf (2000) ,ibuf o 
dimension  vi nh( 10 ) , dinh(10 ) , aoh( 10 ) , voh ( 1 0 ) , doh(10 ) , anh ( 10  ) , 

1  vnh(lO) ,dnh(10) , sth(lO) ,hm(10) ,  vnp(99), 

2  aop(99),anp(99),dop(99),dnp(99),vop(99)  ,stpi.99),pm(99),cdp(99), 

3  res(99),reso(99),sj(99),sok(99),qs(99),su(99),splice(99), 
4dsacp(3),out(3200),inp(13),ex(600),result(100),Jex(600) 
5,am(10),sta(10),iseg(15), jselec(13),alph(99),title(10) 

6  ,pbar(20),stinh(4, 10),stinp(4,99) ,area(99),8trar(10)  ■ 

7  ,iex(40),pstp(99),ppmC99),palph(99),pqs(99),psJ(99),psu(99)      P 
ibufo  -  -1 

9877  continue  m 

strmax  *    0.0  ■ 

call  iptn(jselec,iseg,ymax,alph, title , lostr, strm, loute, 
lpstp,ppm,prult,palph,pqs,psj,psu,nseg,pxpt,pap,pep,prp) 
if  (iw.gt.-lOO)  iwr  -  iw  H 

if  (iw.lt. -100)  go  to  9876  P 

c 

c      iptn  reads  all  input  information  and  sets  up  hammer-pile-soil-    ^ 
c      model  I 

c      note  iptn  automatically  calls  for  the  right  hammer  and  sets  ityph" 
c      for  air  steam  hammers  stroke  and  vfall  are  set 

I 


c      initialize  for  new  problem 
c 

nl  =■  n+1 

pcomr  =  pcom 

iiout  =  iout 

if    (iout.gt.9)    iiout    =    iout-10 

if  (iout. gt. 19)  iiout  -  iout-20 

ifuel  -  0 

iwt  -  0 

dstrok  -  0.0 

inow  =  0 


I 
I 
I 
I 
I 
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epsa tr"0  .05 
C  maximum    quake    at    bottom    element 

q    -    qa (n) 

If     (qa  (nl  )  .gt.q)    q    »    qaCiil) 

coli-(xpt/Bqrt(emp/rho))*1000 . 

nult-lult 

If     (nult.eq.O)    nult    -    1 

lult    -    1 

dult-rult 

if (ityph.eq.3)    go    to    502 

if    (pbar(l ) .It . 10 .e-5)    pbar(l)    -    aram 

if     (lt7ph.ne.2)    go    to    502 

epastr    ■    0.03 
c  for    closed    end    hammers,     determines    vfall    for    uplift    condltloa 

call    down(strmax,vfallm,pbar,hm,deplb,m,lw,iout,downt) 

If  (stroko.gt  .0.1)  go  to  503 

vfall  "  vfallm 

stroko  "  strmax 

go  to  502 
c      if  stroke  Is  assigned  find  corresponding  vfall 

503  call  down(8troko , vfall , pbar , hm, deplb,m, iw, lout , downt ) 
502   continue 
501  istr-O 
c      initialize  for  new  rult 

ifa  -  0 

rtons  ■  rult/2.0 

rt oe  »  su  (nl  )*0  .5 

if(ioute.ne.l)write  (6,9)rtons,rtoe 
9     format  ( Ihl  ,  30x,  5hrult  =- ,  f  7  . 1  ,  9h  ,  at  t  oe=  ,  f  7  . 1  ,  5h  tons /31x  ,  33  (  Ih-)/ 
1) 

nml»n-l 

dtr  =»  1.0 

dtrm  "  1 .0 

do  200  1-1, nml 
c      check  damping 

ad j-s j(l) 

if  (Ismith.eq.l)  sd j-su ( 1 )*s j ( 1 ) 

if  (sdj.gt.lO.e-8)  dtr  -  pmCD/sdj 

if  (dtr.lt.dtrm)  dtrm  »  dtr 
200  continue 

sdj  -  sj(n)  +  sj(n+l) 

if  (ismith.eq.l)  sd j«s j (n)*su (n)+s j (nl )*su(nl) 

if  (ad j  .gt . 10 .e-8)  dtr  =  pm(n)/3dj 
c 

if  (dtr.lt.dtrm)  dtrm  =  dtr 

dtrm  =  dtrm*0.8 

if  (dt rm. ge . dtp )  go  to  711 

if  (dtrm.lt .0.00001)  write   (6,21)  dtrm 

if  (dtrm.lt .0.00001)  go  to  401 

dtp  ■  dtrm 

dth  -  dtp/float ( jrat ) 

dtrm  -  dtrm*1000 

write   (6,18)  dtrm 
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711  continue 
21    format  (51h  damping  gtr  critical,  t.i.  required  Iss  .01  msec.(,elO 

1.5,lh)) 
18    format  (43h  large  damping  requires  new  time  increment", f 7  .4 , 

1  6h  msec . ) 
500   continue 

j  ma  X  =  6 

if  (icol.gt.O)  jmax  =-  13 

if  (jmax.gt.n)  jmax  =  n 

if  (ityph.lt. 3)  go  to  650 
c      perform  air/stm  hammer  analysis  and  go  to  output  (out2) 

call  airstm 

iblow=-l 

dfin  =  ((dfin/12.0)+q8(n)-q)*12.0 

if  (ab8(df in).gt.0.0)  iblow-12 .0/df in+0 .5 

go  to  900 
650   continue 
c      begin  analysis  for  all  dlesel  hammers 

vfr  =  vfall 

call  startc 

tstart  =  fintmx 

m2-m+2 
c      store  initial  values  from  start  analysis  (may  be  reused) 

8tinh(l , 10)-vo 

stinh(2,10)-fpto 

stinh(3,10)=>f  loat(ipreig)+0.1 

stinh(4,10)=po 

do  660  i-l,m2 

stinh(l,i)»aoh(i) 

stinh(2,i)='vinh(i) 

660  stinh(3,i)-dinh(i) 
do  661  i-l,nl 
stinp(l  ,i)»»aop(i) 
stinp(2,i)=vop(i) 
stinp(3,i)='dop(i) 

661  stinp(4,l)=reso(i) 
if (ipreig.gt .-100)go  to  662 
iblow-0 
do  668  i-2,10 
iad-i*10 

668   re8ult(iult+iad)=0.0 
vf all"vf r 
i-iult 
go  to  400 
662   continue 
c      for  non-starting  hammers  ( ipreig=-100)  proceed  with  next  rult  at 
c      400;  all  final  results  set  to  zero, 
call  diesel 
tdies  =•  fintmx 
c      determine  stroke  by  analyzing  upward  motion 

call  up (p bar, dnh , vnh , dnp , vnp , hm, pm,m,n,dcyl, dfin, vfall, vo,po, 
1  vfallm,strokn,depib,aram,expp,iwt,iw,iout,psi,tup) 
c      no  penetration  and  no  increase  of  stroke  means  quit  (300) 


I 
I 


I 
I 
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if  (df in.lt .0 .O.and. 8trokn.lt. stroko*!  .025)  go  to  300 

if  (iostr.lt.O)  go  to  750 
:      reduce  fuel  for  uplift  (901) 

If  ( iwt .eq . 1 .and . ityph. eq  .2 .and.iost r .ne  .  1 )  go  to  901 
:      no  uplift  but  previous  uplift  means  fuel  sufficiently  reduced(300) 

if  (ifuel.gt .O.and. iostr.ne  .1 )  go  to  300 

if  (ityph. eq . 1 .and . 9 trokn. gt . s trm)  write   (6,20) 
20  format  (35h  ***  caution  ram  might  blow  out  ***) 

if  (ityph. eq . 1  .and .strokn.gt . strm)  8trokn  =  strm 

determine  stroke  difference, store  new  stroke 

dostr  =  dstrok 

dstrok  "  abs (strokn-stroko) /stroko 

istr  -  istr  +  1 

8trar(i8tr)  -  stroko 

if  (ios tr.eq . 1 .or .dstrok. It .epsstr)  go  to  300 

stroko  "  strokn 

if  (istr .gt. 4  .and. dstrok. gt. (float (20-istr))*.05*do8tr)  go  to  301 

if  (istr.gt.6)  go  to  301 

if  (ityph.gt . 1 .or .istr .It .2  .or .pbar(20) .gt .0  .0)  go  to  675 

if  (strar (istr ) .gt .St rar(i8tr-l )  .and. strokn.gt .St rar (istr ) )  go  to 

*  675 

if  (strar (istr ). It .strar (istr-l ) .and. strokn. It .St rar ( istr )  )  go  to 

*  675 

for  a  new  stroke  which  is  between  previous  values 

strokn  =  0 .5* ( s trar ( is tr )+s trokn) 

vfall  »  sqrt( (strokn-depib)*64  .34) 

stroko  =  strokn 
:      at  650  a  new  complete  analysis  starts 

go  to  650 

change  fuel  setting 
750   istr  -  istr  +  1 

if  (iwt.eq.l)  strokn  ■  strmax 

dstrf  -  (strokn-8troko)/stroko 

if  (iwt.eq.l)  dstrf  -  dstrf  +  ( vf all-vf allm) /vf allm 

if  (abs(dstrf ) .gt. .2)  ds trf- .2*d8 trf /abs (dstrf ) 

strar(istr)  =  strokn 

strokn  =  stroko 

if  (abs(d8trf) .It. epsstr)  go  to  300 

if  (i8tr.gt.4)  go  to  663 
76    format  (21h  fuel  setting  changed, f 6  .3 , 7h  perct.) 

if  (iwt .eq . 1  .and.dstrf . It .0  .1 .and.ityph.eq .2)  dstrf=dstrf  +  0.1 

pcom  =  pcom* ( 1 .0-ds t rf ) 

if  (iout.lt.O)  write  (6,76)  dstrf 

vfall  =  vfr 

go  to  761 
675   continue 

if  (dstrok. gt .2 .0*epsstr)  go  to  650 
:      initial  values  are  reused  (at  662) 

do  666  i=l,m2 

vinh(i)=stinh(2,i) 

if  (i.le.m)  vinh ( i )=( vf all/vf r )*vinh (i ) 

aoh(i)=stinh(l,i) 
666  dinh(i)-8tinh(3,i) 
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go  to  667 
901   ifuel  *  ifuel  +  1 
Istr  =■  istr+l 
strolcn  -  strmax 
8trar(i8tr)  "  stroko 
stroko  »  strokn 
vfall  "  vfallm 
pcom  =»  pcomr*(l  .0-f  loat(ifuel)/10.) 

11  format  (36h  fuel  setting  reduced  by  ten  percent) 
if  (ifuel. gt. 4)  go  to  663 

if  (iout.lt.O)  write   (6,11) 

if  (ab9(8trar (l8tr)-strmax)  .gt.  lO.Oe-8)  go  to  650 
c      reinitialize 
761   continue 

do  664  i-l,m2 

aoh(i)-8tinh(l,l) 

vlnh(i)-8tlnh(2,i) 

664  dlnh(i)-stinh(3,l) 
667  continue 

do  665  1=1, nl 
aop(i)=stlnp(l ,1) 
vop(l)-8tlnp(2,l) 
dop(l)-stlnp(3,i) 

665  reso(l)'»stinp(4,l) 
vo-stinh(l , 10) 
fpto-stlnh(2,10) 
ipreig-stinh(3,10) 
po"stlnh(4 , 10) 

go  to  662 

663  write   (6,12) 

go  to  300 

12  format  (20h  no  fuel  conversion  ) 
301   write   (6,8) 

8     format  (25h  stroke  does  not  converge   ) 
300   continue 
c 

c      one  rult  has  been  analyzed 
c 

lblow=-l 

dfln  -  ((dfln/12.0)+qs(n)-q)*12.0 
if  (ab8(df in).gt.O.O)  iblow-12  . /df in  +  0.5 
if  (ifuel. eq. 5)  ifuel  =■  4 
900   continue 
c      output  for  all  hammers 

if(ityph.lt.3)  pcomc"(pcom-pcomr )/(pcomr*0.01) 
if (ioute .eq . 1 )go  to  754 

call  out2(out,lnp,8th,hm,stp, pm,emp, rho,icol,m,n,dtp,jpmax,jdout, 
1  te ma x.fintmx, ex, j ma x,iw, lout, result, area, jex,ltyph) 
if(lfuel.gt.0.and.ltyph.eq.2)write  (6,51)lfuel 
51    f ormat(l IhOthere  were,i2,16h  fuel  reductions) 
c 
1     format  ( IhO , 13x, 37hstrokes  analyzed  and  last  return  (ft),7f6.1) 
if  (iostr.lt.O)  go  to  753 
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if  (ityph  .It.  3)  write   (6,1)  ( s trar ( i  )  ,  i-1  ,  is t r  )  , 
*  strokn 
77    format  ( IhO , 13x, 42hreturned  strokes  and  stroke  analyzed,  (ft), 
1  7f6.1) 
go  to  754 

753  write   (6,77)  (atrar (i  ) , i-1 , istr ) , stroko 
c 

70    format  (14x,22h  total  pressure  change, f 6  . 1  ,  2h  ]) 
write   (6,70)  pcomc 

754  continue 
10     il  -  -iult 

c      jdout   no.  of  time  increments  between  output  values  +  1 

c      jpmax   maximum  j  in  output 

c      maxjp   maximum  mo.  of  output  values 

max jp"( jpmax/jdout)-l 

stpl=stp( 1 )/ept 
c 

c      plot 
c 

if  ( iult . It .nult )  call  output (out , result , inp, iout , dtp , jpmax, jdout , 
1  il,n,maxjp,alph,iseg,jselec ,ymax, coli,title,stpl,pm(l)) 
c 

c      determine  overall  extrema  for  summary 
c 

sexmin  =  10  .  **6 

sexmax  •  0.0 
c 

do  600  i-l,n 

i3n-i+3*n 

i2n=i+2*n 

if (sexmax. ge . ex(i3n) )go  to  601 

sexmax=ex( i3n) 

iex(4*iult-l)=i 

iex(4*iult)-jex(i3n) 
601   if (sexmin. le.ex(i2n))go  to  600 

sexmin=ex(i2n) 

iex(4*iult-3)=«i 

iex(4*iult-2)-jex(i2n) 
600   continue 

result(iult)=rult*.5 

result(iult+10)  =  iblow 

if  (re8ult(iult+10).lt.0.0)  result (iult+10)  =  9999999. 

if  (ityph  .It.  3)  result(iult+20)  =  stroke 

result (iult+30)  =  sexmin 

resultdult  +  40)  =  sexmax 
c      anp(99)  stores  enthru 

result (iult+60)=anp( 99) 

re suit (iult+80) -strokn 

if  (ityph. eq. 3)  go  to  700 
c 

c      determine  blows/minute  for  diesels 
c 

if  (ityph. eq. 1 .and. pbar(20) .gt. 0.1 )  go  to  680 
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If  (ltyph.eq.2)  go  to  681 

tdown  -  8qrt( (stroko-depib)*0.06217)*2.0 

go  to  682 
c      for  closed  end  hammers  find  cycle  time 

681  call  down(stroko, vf all , pbar, hm, depib.m, iw, inow, tdown) 

tdown* tdown* 2 .0 

go  to  682 
680   dcy  -  0.0 
c      for  vacuum  hammers  only  -  determine  time  of  cycle 

call  vacham(pbar,aram,deplb,dcy,stroko,fstr,vft,inow,iw) 

dd  =  depib-0.001 

call  vacham(pbar,aram,depib,dcy,dd,fsbo,vfb,iout,iw) 

ac  =»  32.17*(1.0+0.5*(fstr+f sbo)/pbar(20)) 

tdown  =  sqrtC (stroko-depib)*2  .0/ac)*2.0 
682   continue 
c      total  cycle  time 

tt  "  tdown  +  tstart+tdies+tup 

result(iult+50)  =  60. /tt 
c      determine  bounce  chamber  pressure 

if  (pbar(l).gt.O.O)  result  (  iult+70)=»(pbar(  8  ) /pbar  ( 1  )) /O  .  144 

if  (ifuel.eq.O)  result (iult+70)  =  psi 
700  if  (iult. ge.nult. or. iblow.gt .1200.or.iblow.lt  .0)  go  to  402 
c 
c 

c      set  up  for-  next  rult  analysis 
c 

i  =  iult 

if  (ityph.eq .3 . or .lost r .ne  .0 )  go  to  904 
c      new  stroke  (assumed)  for  dlesels 

strokn  =  1.2*stroko 

if  (iult.gt.l)  strokn  =>  result  (iult+20  )*1  .5-result  (iult  +  19  )*0  .5 

if  (strokn. gt .strm)  strokn=strm 
c      velocity  at  ports 

vfall=0.0 

if  (strokn. gt .depib)  vf all  =  sqrt (64 .34*( s trokn-depib)  ) 

dcyl  =  0.0 

if     (pbar  (20  )  .  gt .  0  .0  )    call    vacham(pbar,  aram,  depib,  dcy  1 ,  strokn  ,  fsuclT 
1    ,vf all.iout.iw) 

if    (ityph.eq. 1)    go    to    904 

vfall  -  vfallm 

if  (strokn. It . strmax) 
Icall  d own(str okn, vf all, pbar,hm, depib, m,iw,i out, tdown) 

if  (strokn.  gt .  strmax)  strokn  =■  strmax 

if  (ifuel.gt.O)  ifuel  =  ifuel  -  1 

pcom  =  pcomr*( 1 .O-f loat (if uel)*0 . 1 ) 
904   continue 

if  (iostr.eq.O)  stroko  »  strokn 

if  (iostr.ne.O)  vfall  -  vfr 
c 

c      new  static  soil  resistance 
c 
400   continue 

if  (result(i+l).gt. 0.001)  rult=result (i+1 )*2 . 
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if  (resultd  +  l)  .gt. 0.001)  go  to  399 
rult  -  rult  +  dult 
399  iult-lult+1 

if  (cdp(99).gt.0.5)  go  to  395 
c      for  proportionally  increasing  skin  friction 
do  398  1-1, nl 

8u(l)  =  8u(l)*rult/(re8ult(iult-l)*2.0) 
398   sok(i)  -  8u(l)/qs(i) 

go  to  501 
395   continue 
c      for  constant  akin  friction 

8u(nl)-su(nl)+rult-re8ult(lult-l)*2.0 
8ok(nl)  "  8u(nl )/q8(nl ) 
go  to  501 

401  lult-lult-1 
c 

c      now  one  problem  la  done 
c      output  summary  and 
c      final  plot 
c 

402  if  (df in.le.0.0)  write   (6,23) 

4     format  ( Ihl , 1 2x, 10a4/lh0 , 28x, 7hsummary) 
write   (6,4)  title 
23  format  (53h  analysis  was  terminated  as  no  permament  set  resulted  ) 
c      summary  is  output  in  sumout 

call  sumout (result , ityph, iult , iw, lex) 
c 

if  (nult.eq.l)  iult  -  0 

call  output  (out , result , inp , lout , dtp , jpmax, jdout , iult , n, max jp , 
1  alph,l8eg,jselec,ymax,coli,title,8tpl,pm(l)) 


c 

c      go  to  read  new  problem 

c 

go  to  9877 
9876  continue 

return 

end 

subroutine  iptn(jselec, iseg , ymax, alph, title, iostr,strm,ioute, 
lpstp,ppm,prult,palph,pqs,p8j,psu,nseg,pxpt,pap,pep,prp) 
c 

common  vinh , dinh , aoh , voh , doh , anh , vnh , dnh , s th , hm, am,sta,ma,esoil, 

1  aop,anp,dop, dnp , vop , vnp ,stp,pm,cdp,res,reso,sj,sok,qs,su, 

2  splice,depib,aram,ecus,ecap,ept,eanv,vfall,vcham,xpt,sjjj, 

3  emp,rho,dth, dtp, n,m,jrat, iult, rult, soilm.dsacp, 

4  fpto,iw,pcom,tdel,iout,out,expp,temi,temo,inp,stroko,strokn,vo,pc 

5  , df in, jdout , jpmax, ex, Icol, fintmx,  temax, result , ismith, iter 

6  ,  ityph, ip re ig,vfallm, st rmax, dcyl,pbar,area, jex 
common /slak/ op en(99) 

dimension  vinh ( 10 ) , dinh ( 10 ) , aoh( 10 ) , voh( 10 ) , doh ( 10 ) , anh ( 10 ) , 
1  vnh(10),dnh(10),sth(10),hm(10),  vnp(99), 
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c 
c 
c 


2  aop(99),anp(99),dop(99),dnp(99),vop(99),stp(99),pm(99),cdp(99), 

3  res(99),reso(99),sj(99),sok(99),qs(99),su(99),splice(99), 
4dsacp(3),out(3200) , inp ( 13 ), ex ( 600 ), result ( 100 ), jex( 6  00 ) 

1  ,ap(20),xp(20),title(10),ee(4),smith(2),vlscou(2),dtyp(2) 

2  ,aiii(10),sta(10),rp(20),ep(20),alph(99),hname(2),  j8elec(13), 

3  iseg(15),pbar(20),area(99),pstp(99),ppm(99),palph(99),pqs(99), 
4p8j(99),psu(99) 


30 


40 


146 


Initialize 

ir  =  5 

if-8 

data    smith, viscou/4h 

icol-0 

iw-6 

nhamr    =»    200 

pele=5.0 

nlim=98 

mlim=10 

do    30    i-1,3 

dsacp(i)-.01 

cdp(l)-0.0 

splice(l)=0. 

do    40    i=2,99 

splice(i)=-5000 

.0 

if(i.le.lO)    resv 

ilt(i) 

alph(i)    =    0.0 

cdp(i)=0.0 

expp="l  .3 

temi=25.0 

soilm-O.O 

8Jjj-0.0 

dult-0.0 

do    146    i-1,13 

jselecCD-O 

8,4hmith,4h  vis,4hcou8/ 


0.0 


c 
c 
c 

c 
c 


8tart  to  read  data 
read  and  print  title 
if  no  more  data  -  quit 

1  format  (20i4) 

2  format  (10f8.2) 

4  format  ( Ihl , 19x, 44hw  e 
1  35x,12hl980  version// 
>  ,5x,10a4) 


a  p   -   wave  equation  analysis  for  piles// 


read  (ir ,  5  ,end»9876  ,err='1020  )  title 
go  to  9877 

9876  iw  >— 1000 
return 

9877  continue 
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alph(l)  =  1.0 
5     format  (10a4) 

write   (6,4)  title 
c 

c      read  options  and  specs. 
c 

read  (ir, 1 , end=9876 , err=1020 )  iout, i j j , ihamr , ios tr , if uel , ipel , n, 
1  i8pl,ncross,ibedam,ipercs,ismith,itys,maxjrt,iphi,iter,idaha 
c 

c     check  and/or  correct  options 
c 

ii=-iabs(iout) 

ioute=0 

if (iout. eq. -100)  ioute  =  l 

if (iout. eq. -100)  iout=0 

pm(99)  =  0.0 

if  (idaha.eq.O)  pm(99)  =  2.0 

if  (idaha.gt.O)  pm(99)  =  idaha 

cdp(99)  =■  0.0 

if  (ipercs.lt  .0.0)  cdp(99)  =  1.0 

ipercs  =  iabs(ipercs) 

if  (ibedam. eq .0 )  ibedam  =  1 

if  (ibedam. It. 0)  ibedam  =  0 

if  (ii.ge.20)  ii-ii-20 

if  (ii.ge.lO)  ii=ii-10 

if  (ii.gt.6)  iout=0 

if  (ifuel.lt.l .or.ifuel.gt.5)  ifuel=l 

if  (iter.eq.O)  iter=2 

if  (iter. It. 0)  iter=0 

if  (max jrt . le .0)  maxjrt=l 

if  (ihamr . gt . nhamr )  write   (6,3) 

if  (ihamr. It. 0)  ihamr=0 

if  (ii.eq.6)  ijj  =  0 
3     format  (27h  unknown  hammer  type,  sorry) 

if  (ihamr . gt . nhamr )  stop 
10  format  (48h  ***n  was  not  set, extended  input  not  possible***) 

if  (n.le.l .and. ipel. gt.O)  write   (6,10) 

if  (n. le . 1 .and . ipel . gt  .0)  stop 
c 

c      extended  pile  input 
c 

do  111  i=l , nseg 

stp(i)=pstp(i) 

pm(i)=ppm(i) 

alph(i)=palph(i) 
111  continue 

if  (ipel. It. 2)  go  to  142 
9  format  (50h  masses  and  stiffnesses  for  first  element  are  not  , 
*9hspecif ied) 
if  (pm(l).lt.l0.e-8.or.stp(l)  .It  .lO.e-8)  write   (6,9) 
if  (pm(l) .It .10.e-8.or .stp(l) .It .10 .e-8)  stop 
do  143  i=l,n 
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c 
c 
c 


stp(i)-8tp(l)*12.0 

pm(i)-pm(i)/32.17 

If  (stpd). It. 0.0001)  8tp(i)-8tp(i-l) 
143  if  (pm(l).lt.l0.e-8)  pm(l )-pm(i-l) 
142  continue 

do  600  1-2,99 
600  if  (alph(i). it. 0.0001)  alph(i )-alph(l-l ) 

ml-8 

m2  =  9 

driving  system  input 


c 

c 
c 

c 
c 


read  (ir,2)  hm(m2 ) , sth(ml ) , sth (m2 ) 
if (hm(m2).le.0.0)write  (6,11) 
11    format(51h  need  cap  weight  gtr  0;  split  ram,  anvil  or  piletop) 
if (hm(m2).le.0.0)  stop 
hm(m2)=hm(m2)/32.17 
sth(m2)  =  sth(m2)*12. 
sth(ml)  =■  sth(ml)*12. 

read(ir,2)  (ee(i),i='l,4),temax,b,a,c 
if  (3th(m2).lt .1 .0)  ee(4)  =  1.0 
do  141  1-1,4 

if  (ee(l). It. 0.00001  .or  .ee(i).gt.l  .0)  ee(i)  =  0.85 
141  ee(i)-ee(i)**2 
eanv=ee ( 1 ) 
ecap-ee (2) 
ept-ee (3) 
ecus-ee(4) 

ncross  eql  0  means  uniform 

start  pile  input 


nn»2 

xp(l 

soil 

tdor 

al-0 

bl-0 

cl-0 

xpt- 

ap(l 

ep(l 

rp(l 

atp 

if  ( 

if  ( 

emp- 

rho- 

if  ( 

1-2 


)  = 

m-0 

ga  = 

.0 

.0 

.0 

pxp 

)-p 

)=P 

)=P 

=  a 

ep( 

rp( 

ep( 

rp( 
ncr 


0.0 
.0 
0.0 


t 

ap 

ep 

rp 

P( 

1) 

1) 

1) 

1) 

OS 


1)/144.0 

.It. 0.1) 

.It .0.1) 

*144. 

/32170. 

s  .It  .1  )  go  to  221 


ep(l)  =  29000, 
rp(l)  =  492. 
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c      for  nonuniform  piles  < 

220  read  (ir,2)  xp (i ) , ap(i) , ep(i ) , rp (i)  i 

nn"i 

If  (ep(i).lt.O.l)  ep(i)  -  ep(i-l) 

if  (rp(i).lt.O.l)  rp(i)-rp(i-l) 

i  -  1+1 
12  format  (48h  pile  properties  at  bottom  of  pile  not  specified) 

if  (xp(i-l).lt.xp(i-2))  write   (6,12) 

if  (xp(i-l) .lt.xp(i-2))  stop 

if  (xp(i-l) .It.xpt)  go  to  220 

go  to  222 
221   continue 

ap(2)=ap(l) 

xp(2 )=xpt 

ep(2)=ep(  1) 

rp(2)=rp(l) 
222  continue 
c      determine  no.  of  stations  specified 

do  2100  i-1,20 

if  (xp(i) .ge.xpt-lOe-8)  go  to  2101 

2100  continue 

2101  nn-i 

if  (ipel.ne.O)  go  to  2102 

nl=xpt /pele+1 

if  (n.le.l)  n-nl 

if  (n.gt.nlim)  n»nlim 
c 

c      determine  pile  segments 
c 

2102  call  piel (nn, n, xp, ap , ep , rp, s tp , pm,alph, iout , iw, icol , ipel , 
1  area) 

c 

c      obtain  hammer  data 

c 

call  ha el (ihamr ,dtcrh,dtcra ,hname , ir) 

if  (abs(tdorga) .gt .lO.e-8)  sjjj  =  tdorga 

strm  =  pbar(lO) 
c 

c      check  on  self -generated  pile  data 
c 

do  150  i=l,n 

if  (stp(i). gt. 100.0. and. pm(i).gt.lOe-8)  go  to  150 
7  format  (54h  pile  masses  or  stiffnesses  too  small, check  input  info) 

write   (6,7) 

stop 
150  continue 
c      fuel  pressure  and  pressure  multiplier  for  diesels 

p8pec=pbar(10+ifuel) 

if  (pspec.lt.0.01 .and.ifuel.gt .1 )  pspec-1000.0 

if  (  vcham.  gt.lO.e-8)  pcom='pspec/(14.7*(l  .+depib*aram/vcham)**l  .35) 

nml=n-l 

nl=n+l 
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if  (a.gt.0.1)  pcom  =  a 

soilm=soilm/32 .17 

if  (al  .gt.lO .e-8)  dsacp(l)  =  al 

if  (bl .gt.lO.e-8)  dsacp(2)=bl 

if  (cl  .gt.lO .e-8)  d8acp(3)-cl 

if  (c.gt.0.1)  expp  -  c 

if  (ab8(b).gt.lO .e-8)  tdel=b 
c 

c      read  soil  and  additional  hammer  data 
c 

read  (ir , 2 , end-9876 , err^lOZO )  qssss , qsqqqqq , s j j j j , s jsssss , rrrr , 
1  esoil, stroke, eff icy, psteam, rwt 
rult=prult 

if (psteam. gt.l .0)  pcom=pcom*p8team/p8pec 
if (psteam.gt . 1 .0 .and. ityph.ne .3)  write  (6,163)  psteam 
163  format(27h  comb,  pressure  input (psi )= , f 6 . 1 ) 

8j8-8j(l) 

s jt-8j(n+l) 

if  (ef f icy. gt. 0.001)  pbar ( 16)-ef f icy 

if  (rwt. gt .0  .0 .and. ityph.ne .3)  pbar(8)=rwt 

if  (ityph.ne. 3)  go  to  160 
c 

c      for  a/s  hammers  override  file  data 
c 

if  (stroke. gt. 0.001)  pbar ( 10)-8troke 

if  (stroke.lt .0 .01)  stroke-strm 

if  (rwt. gt. 0.0)  pbar(18)=rwt 

if  (psteam.gt . pbar ( 11 ))  psteam-pbar ( 1 1 ) 

if  (psteam.lt .0 .001 )  pst eam=pbar ( 1 1 ) 
c      double  acting  air/steam  stroke  (equivalent)  ' 

if  (pbar(ll).gt.lO.O)  s tr oke=pbar ( 10 )* ( 1 .0+(ps team*pbar ( 18 ) )/ ( 
1  pbar(ll)*pbar(17))) 

vfall=3qrt(stroke*64.34*pbar(16)) 

write   (6,161)  s troke, pbar ( 16 ) , vf all 

161  format  ( 1 6h  stroke  (equiv.)  ,f4.1,4h  ft,  , 1 Ih  efficiency  , 
1  f5.2,18h  ,  impact  velocity  ,f5.1,5h  ft/s  ) 

if  (pbardl  ).gt.lO.O)  write   (6,162)  psteam,  pbar  (  1 1  ),  pbar  ( 18  )  , 
1  pbar(17) 

162  format  (22h  actual/  max.  pressure  ,  f 6  . 1 , Ih/ , f 6 . 1 , 23h  psi,  react. /r 
lam  weight, f6 .1 ,lh/,f6.1 ,5h  kips  ) 

do  164  i-21,30 
164   result(i)  "  stroke 
160  continue 
c 

c      determine  ultimate  capacity  to  be  analyzed 
c 

rult»2 .*rult 

rmax=rult 

if    (esoil.lt .10. e-4. or. esoil. gt.l  .0)    esoil=l  .0 

esoil=esoil**2. 

do    114    i-2,n 
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sj(i)=8j(l) 
114   qs(i)-qs(l) 
c 

c      read  extended  soil  Input 
c 

do  112  i-l.nseg+l 

qs(i)"pqs(i) 

8j(i)=p8j(i) 

su(i )»p8u(i) 
112  continue 

If  (Itys.ge.O)  go  to  230 

do  200  1=2, nl 

If  (q8(l). it. 0.0001)  qs(l)=qs(i-l) 

If  (sj(l). It. 0.0001)  sj(l)=sj(l-l) 

If  (ltys.lt  .-1  .and. su(l). It .0.0001)  su ( 1  )  =  su (1-1 ) 
200   continue 
230   continue 
c 

c      distribute  resistance 
c 

Ityr  =•  Itys 

If  (Itys.ge.-l)  call  solln  ( Ity s , Ipercs , n, xp t , su, 1 r ,alph) 

Itys  "  Ityr 

sus"0. 

do  184  1-1, nl 

184  8us"su8+su(i) 

su  j  =  sus  -  su (nl ) 
c 

c      distribute  case  damping 
c 

do  185  1-1, nl 

If  (Ismlth.gt .0. or. 1. eq.nl)  go  to  187 

If  (Itys.lt.O)go  to  1187 

If  (su j.lt  .lO.e-10)  s j(l)=s j(l)/f loat(n) 

If  (su j.ge.lOe-10)  s j ( 1  )-s j (1 )*su (1 )/su j 
1187   continue 

sj(l)-8j(l)*sqrt(stp(l)*pm(l)) 
187   continue 

q8(l)-q8(l)/12. 

su(l)"su(l ) /bub 
c 

c      check  quakes 
c 

185  If  (qsd). It. 0.0001)  qs(l)-. 08333 

If  (Ismlth.lt.l)  8 j(nl  )-s j(nl )*sqrt(stp(n)*pm(n)) 
6      f ormat(l4,2f8.2) 

do  301  1-1,99 
301    open(l)-0.0 

if  (Ispl.lt.l)  go  to  144 
c 

c      read  splice  and  plotter  Info. 
c 
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(ir,2,end=1000,err=1020)  ymax 

(ir,l, end* 1000, err- 10 20)  (lseg(l),i=l 


values 


do  300  i-l,ispl 

read  (Ir  ,  6 , end  =  987 6 ,err-1020)  j , splice ( j  ), open( j) 
300    continue 

do  302  i-2,n 
302    open(l)=open(i)+open(l-l) 

144  continue 
if  (iabs(iout) .gt .9)  read 
if  (iabs(iout).gt .9)  read 

1) 
go  to  1003 

1000  continue 

1001  format  (51h  insufficient  plotter  information, therefore 
*llhare  assumed) 

ymax  •■  0.0 

do  1004  i=»l,15 
1004  iseg(i)  =  0 

write   (6,1001) 
1003  continue 
c      determine  pile  damping 

dfac-f loat(ibedam)/5  0. 

do  145  i-l,n 

145  cdp(i)-dfac*sqrt(pm(i)*8tp(l)) 

print  input  Info 


,15! 


c 
c 
c 


876 


189 
188 
47 


call  ou 
Ihname , e 
do  876 
dtyp(i) 
if  (ism 
cont inu 
if  (iph 
if  (iph 
phi  =•  f 
pf ac  " 
format 

1  4h    phi 

2  5h    iou 

3  6h    ifu 

4  6h  ios 
do  188 
if  (spl 
if  (abs 
if  (spl 

*  write 
format 
cont inu 
format 

1  8h  ds 
is  -  it 
if  (is. 
loe»iou 
if (lout 


tln( 
soil 
1-1, 

-  V 
ith. 
e 

i.lt 
i.lt 
loat 
l./p 
(/15 
,f7. 
t,i6 
el,i 
tr,i 
i-2, 
ice( 
(spl 
lce( 

(6, 
(lOh 
e 

(7h 
cap- 
ys 

eq .  1 
t 
e .  eq 


su,sj,qs,sth,s  tp,hm, pm,ihamr,ee,n,m,lw,xpt,i8mith, 

, ap ( 1 ) , emp ,rho,spllce,cdp,alph,ltyph,ioute) 

2 

iscou (i  ) 

eq.l)  dtyp(i)-smith(i) 

.100. and. ityph.lt. 3)  iphi=140 
.lOO.and.ityph.eq.3)  iphi  -  160 
(iphi)/100. 
hi 

x,26hoptions  and  specifications/ 

2,4x, 12hs-damping    , 2a4 , 4x, lOhrwt  (kips),fl0.2/ 
, 4x, lOhp-damping  , ilO  ,  4x, 14hsoil  dist.  no. ,16/ 
5,4x,6hj  skin, f 14.2, 4x,llhtdel  (sec.),f9.4/ 
5,4x,5hj  toe, f 15.2, 4x,10htemax  (ms),fl0.2) 
n 

D.gt.O.O)  spllce(l)  -  -spliced) 
ice(l)).lt.l0.e-8)  splice(l)  -  lO.e-8 
i).lt.0.0.and.spllce(l).ge.-.5) 
189)  i,splice(i) 
at  segmt. , 12 ,1 Ih  slack  (ft),fl0.5) 

soilm-, f 5 .2 , 5h  kips,8h  ds  anv=,f5.3, 
,f5.3,9h  ds  ptop=,f5.3) 


I 
I 


1  )  is 


0 


.1  .and. lout. eq.0)ioe--100 
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write  (6,8)phl,dtyp,rwt,ioe,ibedam,l8,lfuel,8j8,b,iostr, 
1  sjt,temax 
506   format  ( 15x, lOhef f iclency , f 10 .3 ) 

if  (ityph.lt. 3. and. pbar(16).gt. 0.001)  write   (6,506)  pbar(16) 

if  (soilm.gt.O.O.or.al .gt.O.O.or.bl .gt.O.O.or.cl . 
1  gt.0.0)  write   (6,47)  soilm, al , bl , cl 

iult  =  0 

if  (rult.gt.lO.e-4)  go  to  502 

if  (rult.lt.O.)  go  to  191 
c 

c      generate  rult  values 
c 

rult  =  sqrt (emp*rho )*atp*3 .0 

i  -  rult*0.05  +  0.5 

if  (i.lt.l)  i  -  1 

rult  -  i  *  20.0 

if  (emp.lt .3000000 .)  rult =rult /2  .0 

rmax=rult*5 .0 

iult=10 

go  to  502 
191   continue 
c 

c      read  rult  values 
c 

read  (ir,2)  ( result ( i  ), i  =  l , 10 ) 

do  500  i-1,10 

if  (result(i). It. 0.001)  go  to  501 
500   continue 

501  continue 
rmax-0.001 

if(i.gt.l)    rmax=reault(i-l)*2.0 

iult    =    i-1 
c 

c  convert    first    rult    to    kips 

c 

rult-re8ult(l)*2.0 

502  continue 

if  (ityph.ne.l)  go  to  505 

dffall"8troke-depib 

if  (dffall.gt. 0.001)  go  to  106 
c      stroke  for  vaccuum  hammer 

stroke  =  5. 

if  (pbar(20) .gt.lO  .e-8)  stroke  =  3.0 

dcyl  -0.0 

dffall  "  stroke-depib 
106   continue 
c 

c      determine  ram  velocity  at  ports 
c 

if  (dffall.gt. 0.0)  vfall  =  sqrt(64.34*df fall) 

if  (pbar(20) .gt . 10  .e-8)  call  vacham(pbar , aram, depib , dcyl , stroke , 
1  f suck, vf all, iout , iw) 
505  continue 
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c      soil  stiffness 

do  115  1-1, nl 

8u(l)-su(l)*rult 

80k(l)  =  su(i)  /  qs(l) 
115   continue 
c      check  time  Increment  Including  soil  stiffness 

rrat  =  rmax/rult 

If  (cdp(99).gt.0.5)  rrat  -  1 
c 

dtcrp»pm(n)/ (stp(n)+(sok(nl)+sok(n))*rrat) 

If  (cdp(99).gt.0.5)  dtcrp=pm(n)/(stp(n)+sok(n)+(rmax-rult)/qs(nl); 

nml=»n-l 

do  1010  1-1, nml 

St  =  stp(l+l) 

if  (stp(l)  .gt  .8t)  st-stpd) 

st"st+sok(l)*rrat 

dtm"pm( i )/8 t 

If  (dtm. It .dtcrp)  dtcrp"dtm 
1010  continue 

dtcrp=8qrt (dtcrp) 
c      cushion  damper 

pm(99)  =»  pm(99)*sqrt(sth(m)*hm(m))/50.0 
c      determine  time  Increments  for  hammer  and  pile  gtr  critical 

dtp='pfac*dtcrp 

dth=pf ac*dtcrh 
c      check  time  increments 

If  (dth.lt.l0.e-6.or .dtp.lt.lO .e-6)  write   (6,119) 

If  (dth.lt .10.e-6.or.dtp.lt .10. e-6)  stop 
119  format  (47h  hammer  or  pile  t.l.  equal  to  zero,  check  Input  ) 

If  (dtcra.lt .dtcrh)  dth=pf ac*dtcra 

If  (dth.gt.dtp)  go  to  33 

do  118  jrat=l,20 

If  (f loat( jrat+l)*dth.gt.dtp)  go  to  117 
118  continue 
c 

c      determine  time  Increments  If  hammer  increments  smaller  than  pile 
c      t.l. 
c 

117  if  (maxjrt . It . 1 )  maxjrt-1 

if  (  jrat .gt .max jrt )  jrat"maxjrt 

dtp-dth*float(jrat) 

go  to  22 
33  dth=dtp 

jrat=l 
22  continue 
21    format  (15x,15htime  incr.  (ms),f5.3) 

dtpm=dtp*1000  . 
c 

c      set  up  loading  stiffnesses 
c 


if  (ltyph.eq.3)  s  th  (ml  )=»8  th  (ml  )*ecus 
if  (ityph.lt. 3)  3th(ml)=sth(ml)*ecap 
if  (ma.gt.O)  8 ta(ma )=s ta(ma )*ecap 
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8th(m2)  »  8th(m2)*ecus 
8tp(l)  -  8tp(l)*ept 
sth(m)  =  8th(m)*eanv 
write   (6,21)  dtpm 
stroko  "  8troke 
c      set  up  output  variables 

if  (ijj.eq.l)  read  (ir , 1 , end=1005 , err=1020 )  ( inp (i ) , i-1 , 13 ) 
go  to  1006 

1005  ijj-0 

1006  continue 

if  (ijj.ne.l)  call  jjnp  (icol , n, inp , jmax) 
c   ...  jmax=no.  of  pile  variables  that  can  be  printed  (jmax.le.n) 
c      not  used  here,  recomputed  in  analysis 

return 

1020  continue 

1021  format  (llh  data  error) 
write   (6,1021) 

stop 

end 

subroutine    soiln    (itys , ipercs , n.xpt , su, ir ,alph) 

c  this    program   finds    the    percentage    of    total    pile    resistance    that    ac 

c  at    individual    elements 

c  note    that    this    program    assumes    that    pile    elements    are    of    equal    len 

c  except    for    top    and    bottom,     these    have    1/2    the    length    of    the    others 

c  dis    is    an    array    that    contains    distributions    of    static    soil    resista 

c  first    index    =    type,    second    index    l=location    2=percentage 

c  third    index    (max=6)    for    values 

c  between    given   points    of    change    of    distribution    the    resistance    is 

c  assumed    to    vary    linearly 

c  xpt    is    the    total    pile    length 

c  perc*    stands    for    percentage    of    total    skin    resistance    at    * 

dimension    su (20  )  , dis ( 1 1 , 2 , 20 ) , alph( 99 ) 

do    201    i-1, 11 

do    201    j-1,2 

do    201    k-1,20 

dis(i, j,k)»0.0 

201  continue 

if  (itys. It. 1)  go  to  300 
c      the  following  are  canned  distributions:  itys=»l  ,  .  .  .  ,  5  triangular 
c      ity 8-6  ,  . . . , 10  rectangular;  grade  assumed  at  top  for  ltys  =  l  and  5, 
c      20]  below  top  for  itys-2  and  6,  ... 

do  202  i-1, 10 

dis(i,l ,4)-1.0 

d=f loat(i-l)*.2 

if  (i.gt  .5)d  =  d-1.0 

dis(i,l,2)=d 

dis(i,l ,3)=d 

dis(i,2,2)-0.0 

dis(i,2,3)-0.0 

if  (i.gt.5)dis(l,2,3)  =  l .0 

202  di8(l,2,4)-1.0 
c 
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go  to  400 
c 
c 

c      for  input  of  soil  distribuion 
c 

300  Itys-ll 
2     format  (2f8.3) 

do  306  i-1,20 

read  (ir,2)  dis ( 1 1 , 1 , i ) , dis ( 1 1 , 2 , i) 

il-i 

if  (dis(ll,l,l).gt.0.0)  il-il+1 

disx=dl3(ll,l ,i) 

dis(ll,l,il)=dis(ll,l,i)/xpt 

dis(ll,2,il)-dis(ll,2,i)/100. 

if  (disx.ge.xpt-0. 00001)  go  to  400 
306  continue 
400  xu-0.0 

if  (dis(ll,l,l).gt.O.O)  dis(ll,l,2)=0.0 

if  (dis(ll,l,l).gt.O.O)  dis(ll,l,l)=0.0 

percs=ipercs 

percs  =  percs*0.01 

if  (percs.lt .10 .Oe-8)   percs  =  lO.Oe-8 

8unit*"0.0 

salph-O.O 

do  110  i-l,n 
110  salph-salph+alphCi) 

do  100  i=-l,n 

xcxu 

dl='alph(i)/salph 

xu=xo+dl 

8um"0.0 

do  101  j=2,20 

xxo  "  dis (itys , 1 , j) 

if  (xxo.gt.xo)  go  to  102 

101  continue 

102  continue 
jl-j-1 
xxo=xo 

perco-dis(itys,2, jl)+  ( (dis ( ity s , 2 , j )-dis (itys , 2 , j 1 ) )/ ( dis ( itys , 
1  l.j)  -  dis(itys,l,  jl)))*(xo-dis(itys,l,  jD) 
do  103  ij  -  j,20 
xxu=dis (itys,l,ij) 
if  (xxu .gt .xu-lOe-6)  go  to  104 
percu"dis(itys,2,ij) 

sum  =■  sum  +  (perco+percu  )*0  .  5*  (xxu-xxo) 
xxcxxu 
perco»percu 

103  continue 

104  continue 
xxu=xu 

j-ij 
jl-ij-1 
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percu=dis(itys,2, jl)+    ( (dls (itys , 2 , j  )-dis (itys , 2 , jl  ) ) / (dis (itys , 
1    l,j)    -    disdtys.l,  jl)))*(xu-dis(ity8,l,  jD) 

sum   "    sum  +    (perco+percu)*0 .5*(xxu-xxo ) 

8u(l)    ■    sum 

sumt    ■    sumt    +   sum 
100      continue 

do    105    i-l,n 
105       suCD^sud  )*percs /sumt 

8u(n+l)*l .-percs 

return 

end 

subroutine  stiff  (ddls ,dvel, st 1, st r , f o, f n, dsac,ddd) 

dlst  "■  str  -  stl 

sti-8tl+2.*dvel*dlst 

If  (sti.lt. stl)  stl  =  stl 

if  (stl. gt. str)  stl  =  str 

s t"s  tl*dsac 

stl=st*ddd*.5 

stquad=stl*stl-fo*st 

If  (stquad.lt .0 .0)stquad=0 .0 

stls"abs(stl)+sqrt(8tquad) 

If  (stls  .gt .stl)  stls  "    stl 

If  (stls.lt .0.0)  stls  -  0.0 

fn  -  fo  +  ddd*stls 

return 

end 

subroutine  sresn(dnp,dop,su,sok,i,reso,resn,sol) 

dimension  dnp(l),dop(l),su(l),8ok.(l),reso(l),re8n(l),soi(l) 

ddd=»dnp(i)-dop(i) 

if (ddd.ge.O.O)dres=ddd*sok(l) 

if (ddd.lt.O.O)dres=ddd*sol(l) 

resn( 1 )=reso(l )+dres 

if  (resn(i) .it .-su(l) )  resn(i)  =  -su(i) 

if  (resn(l) .gt .su(l))  resn(i  )  =  su ( 1 ) 

return 

end 

subroutine  startc 

common  vlnh,dinh,aoh,voh,doh,anh, vnh , dnh , sth , hm, am,sta,ma,esoll, 

1  aop,anp,dop,dnp,vop,vnp,stp,pm,cdp,res,reso,sj,sok,qs,su, 

2  splice, depib,aram,ecus,ecap,ept,eanv,vfall,vc ham, xpt.sjjj, 

3  emp,rho,dth,dtp,n,m,jrat,lult,rult,sollm,d3acp, 

4  fpto,lw,pcom,tdel,lout,out,expp,temi,temo,lnp,stroko,strokn,vo,pc 

5  , df In, jdout , jpmax, ex, icol , f intmx,  temax, result , ismith, iter 

6  ,ltyph,lprelg,vfallm, s trmax, dcyl,p bar, area, jex 
common /s lak/open(99) 

dimension  vlnh ( 10 ) , dlnh( 10 ) ,aoh(10) ,voh(10) ,doh(10) ,anh(10), 

1  vnh(10),dnh(10),sth(10),hm(10),  vnp(99), 

2  aop(99),anp(99),dop(99),dnp(99),vop(99) , s tp (99 ) , pm( 99 ) , cdp ( 99 ) , 

3  res(99).reso(99),sj(99),sok(99),qs(99),su(99),splice(99), 

4  dsacp(3) , out (3200) ,lnp( 13) ,ex( 600) .result (100) , jex(600) 

5  ,am(10),sta(10),pbar(20),area(99) 
iprelg=0 
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tcc-0.0 

temik-272 .O+teml 

exp"l  .35 

sttlme  -  0.0 

expt-1 .0-1 .0/exp 

patm-14 .7*. 144 

tempc  =  0  .0 

if    (tdel.gt .1 .0)    tempc=tdel 

If  (vfall.lt.O.O)  write   (6,5) 
5  format  (27h  negative  velocity  in  start  ) 

if  (pbar(16).gt.0.5)  vf all=vf all*sqrt (pbar ( 16 ) ) 

if  (vfall.lt.O.O)  stop 

ml=m+l 

m2=m+2 

nl-n+1 
c 

c      initialize  hammer  and  pile  variables 
c 

dcyl  =  0.0 

delp  »  0.0 

if  (pbar(l ) .gt .aram)  delp-(pbar( 1 )-aram)*0 . 144*14 .7 

f suck-O.O 

g-32.17 

ram"0.0 

do  100  i-l,m2 

if  (i.lt.ml)  ram  *  ram  +  hm(i) 

voh(i)»0.0 

doh(i)-0.0 

anh(i)  -  0.0 

100  aoh(i)-g 

do  101  i-l,nl 
res(i)  »  0.0 
re8o(i)-0.0 
anp(i)  =  0.0 
vnp(i)  =  0.0 
dnp(i)  -  0.0 
vop(i)-0.0 
dop(i)"open( i) 

101  aop(i)-l.e-6 
c 

c      determine  time  increment 
c 

stcl    -    8th(ml)*0.5 

stpl-3th(m2)*stp(l)/(sth(m2)+stp(l)) 

stpl    *    stpl    *    0.5 

dtl-hm(ml )/stcl 

dt-hm(m2)/stpl 

if     (dt.gt.dtl)    dt-dtl 

dtl-hm(m2)/stcl 

if    (dt.gt.dtl)    dt=dtl 

dtl-pmd  )/stpl 

if    (dt.gt.dtl)    dt-dtl 

do    102    i-2.n 
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dtl-pm(l)/(8tp(l)+8ok(l)) 

If  (l.eq.n)  dt l-pm(n)/ (s tp(n)+8ok (n)+sok(n+l ) ) 
102  if  (dt.gt.dtl)  dt-dtl 

nml  "  n-1 

dam  -  8j(n)  +  8j(n+l) 

if  (ismith.eq.l)  dam  -  8j(n)*3u(n)  +  a  J (nl )*8u(nl ) 

dam  *  dam/sqrt (pm(n)*stp (n) ) 

do  141  i  =«  l,n 

da  =-  8  j(l)/sqrt(pm(i)*stp(i)) 

if  (ismith.eq.l)  da  =  da*su(i) 

if  (da.gt.dam)  dam  =  da 
141   continue 

dam  =  dam*l .2 

if  (dam. It. 2.)  dam  =  2. 

dt  -  sqrt(dt)/dam 

if  (dt.lt. 0.00001)  dt  =  0.00001 

tlim  =  2.5*depib/vf all 

dlim  "  0.25*depib 

if  (dlim. It. 0.2)  dlim  =  0.2 
c      place  ram  at  exhau8t  ports 

dtop"-depib 

doh(m)=-depib 

voh (m)=vf all 

aoh(m)=g 

dO  =■  vcham/aram 

dcu  =•  pm(99) 

dct  «  0.05*8qrt (stpl*hm(m2)) 

din"depib+vcham/aram 

n5-n/2 

in«0 

J-0 

t2s  =  0.0 

fslow  =•  0.0 

d31c  =-  (3  .O*xpt/sqrt(emp/rho)  )*vfall 

dacrt  -  0.5*depib 

if  (dSlc.gt .dacrt)  dacrt  -  dSlc 
c      dacrt  is  distance  at  which  pile  analysis  starts 

if  (lout. It. 0)  write   (6,1)  dt , vf all , depib 
1  format  (14h  dt,  v,  depib, f 8  .5 , 2f 8 .2 ) 
2     f ormat ( 13x, 102hf p         fc         ft      v  ram      v  anv      v  tc 
Ip      V  mid      V  toe      d  ch      d  top    toe  res  ) 

if  (iout.lt.O)  write   (6,2) 
109  continue 

sttime  ■  sttime+dt 

in-in+1 

j.J+1 

fslow  =  fslow  +  0.025 

if  (f slow.gt.l .)  fslow  =  1.0 

if  (doh(m). gt. -dacrt )  t2s  =  t2s  +  0.025 

if  (t28.gt.l.O)  t28  -  1.0 

it  -  1 
c 
c      predictor  integration 
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103 


104 
114 


305 


105 
106 


do  103  i=m,m2 
vnh(i)='aoh(i)*dt+v 
dnh(i)-voh(i)*dt+d 
if  (t28.lt .10. e-8) 
do  104  i-l,n 
vnp(i)"aop(i)*dt+v 
dnp(i)-vop(i)*dt+d 
continue 

if  (it .eq . 3)  go  to 
start  wave  analysi 
dbc  "  -dnh(m) 
if  (pbar(20).gt  .0. 
1  vfall.iout, iw) 
f p=aram*patm* ( (din 
fp  =  f p-f suck+delp 
feu  =  (dnh(m2)-dnh 
fpt  -  (dnp(l  )-dnh 
dtop"dnh(m)-dnh(ml 
anh(m)  ■  g+(-fp+ft 
anh(ml)  =  g  +  (fp* 
anh(m2)=g+(-f cu+f p 
do  305  i=Tii,m2 
vnh(i)  =  voh(i)  + 
dnh(i)  =  doh(i)  + 
if  (t28.lt. 10. e-8) 
fo  -  -fpt*t28 
do  105  1-1, n 
fu  =  (dnp(i+l)-dnp 
res(i)=reso(i)+(dn 
if  (res(i) .gt.8u(i 
dam=sj(i)*vnp(i) 
if  (ismith.eq.l)  d 
if  (i.eq.n)  go  to 
anp(i )=g+(f o+f u-re 
vnp (i  )  =  vop (i )  + 
dnp(i)  =■  dop(i)  + 
fo— fu 

res(nl)=reso(nl)+( 
if  (res (nl ) .gt .8u( 
dat  »  sj(nl)*vnp(n 
if  (ismith.eq.l)  d 
anp(n)  "  g+(fo-re8 
vnp(i)  =  vop(i) 
vnp(n)  =  vop(n)  + 
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oh(i) 
oh(i) 
go  to  114 

op(i) 
op(i) 

112 


0)  call  vacham(pbar ,aram, depib, dcyl , dbc, f suck , 

/(dO+dnh(ml)-dnh(m)))**exp) 

(ml ) )*s tcl+( vnh(m2 )-vnh(ml))*dcu 
(m2))*stpl+(vnp(l  )-vnh (m2 ) )*dct 

) 

r(dtop,pbar,lwt))*fslow/ram 
f slow+f cu) /hm(ml ) 
t)/hm(m2) 

anh(i)*dt 

(voh(i)  +  vnh(i))  *  0.5  *  dt 
go  to  112 


(i))*stp(i+l)+(vnp(i+l)-vnp(i))*cdp(i+l) 

p(i)-dop(i))*sok(i) 

))  res(i)=su(i) 

am=dam*res (i) 

106 

s(i)-dam)/pm(i) 

anp(i)  *  dt 

(vnp(i)  +  vop(i))*dt*0.5 

dnp(n)-dop(n))*sok(nl) 

nl))  res  (nl  )=»8u  (nl ) 

) 

at "dat *res (nl ) 

(nl)-res (n) -dat -dam)/ (pm(n)+8  0ilm) 
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dnp(n)  = 

continue 

vnp (nl )  =  vnp (n) 

dnp(nl)  =  dnp(n) 

do  107  i=m,m2 

aoh(i)=anh(i) 

voh(i)=vnh(i) 

doh(i)=dnh(i) 

if  (t2s.lt. 10. e-8) 


anp (n)*dt 
dop(n)  +  (vnp(n)  +  vop (n)  )*0 .5*dt 


go  to  113 
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do    108    1-1, nl 

reso(i)-res (i) 

aop (i )"anp (1 ) 

vop  (1)  ="vnp  (i) 
108    dopCD-dnpd) 
113       continue 

dl-dop(l)*12. 

dcham=(doh(ml)-doh(m))*12. 

if  (iout . It .0 .and .in.eq . 10 )  write   (6,6)  j , f p , f cu , f p t , voh (m) , 
lvoh(ml),vop(l),vop(n5),vop(n),dcham,dl 
2  , resoCnl ) 

if  (in.eq. 10)  ln-0 
6     format  (I5,llfl0.3) 
c      ram  close  enough  at  Impact  block  for  ignition  check 

if (voh(m).lt .0.0)go  to  214 
c      ram  turned  around  w/o  impacting 

if  (-doh(m).gt .dlim)  go  to  109 

po  ■■  fp/aram 

temo  "  temik*(po/patm)**expt 

timp=l .0 

if  (voh(m)  .gt . voh(ml  )  )  timp  =  (doh(ml )-doh(m) ) / ( voh (m)-voh (ml ) ) 
c 

c      check  whether  ignition  or  impact  is  about  to  occur 
c 

if  (-tdel.gt .timp-0.001)  go  to  203 
c      pbar(9)  is  dlst.  between  atom.  inj.  and  anvil 

if  (pbar(9) .gt. 0.0. and. tdel.lt .10  .e-8)  go  to  212 

if  ( tempc .gt . 1 .0 .and . temo . gt . tempc)  go  to  206 

if  (-doh(m).lt .pbar(9) .and.pbar(9) .gt .0.0)  tec  =  tec  +  dt 

if  (tcc.gt.tdel-0.001 .and.pbar(9).gt.0.0)  go  to  203 

go  to  212 
203  ipreig-O.OOl/dtp+0.5 
c      ignition  will  occur  after  1  millisec. 

go  to  202 
206   ipreig  =»  0.00025/dtp  +  0.5 
c      temperature  ignition  after  1/4  msec. 

go  to  202 

212  continue 

if  (f loat(j)*dt.lt.tlim)  go  to  213 

write   (6,9) 

ipreig  -  -100 

go  to  202 
214   continue 
10    format(33h  ***  no  steel  to  steel  impact  ***) 

write  (6,10) 

go  to  202 

213  continue 

9  format  (28h  ***  hammer  will  not  run  ***) 
if  (dnh(ml)-dnh(m).gt.0.01*depib)  go  to  109 
c      ram  not  close  enough  and  no  ignition 
c      for  0  tdel  and  atomized  fuel  injection 
c      (assume  at  impact) 

If  (tcc.gt .  10  .e-8)  ipreig  =  ( tdel-tcc  ) /dtp 
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if  (tcc.gt . 10 .e-8.and.iprelg  .  It . 1 )  ipreig  =  1 
c      now  data  preparation  for  diesel 
202  mml=in-l 

fpto  =  -fpt 

vo  ■  -feu 

do  111  i»m,m2 

dinh(i)=doh(i) 
111  vinh(i)=voh(i) 

do  110  il-l.mml 

i=m-il 

vinh(l)=»voh(m) 
110  dinh(i)  =  dinh(i+l)  +  fp/sth(i) 

fintmx  =  sttime 

return 

end 

subroutine    vachani(pbar  ,aram,  depib,  dcyl ,  dbc,  f  suck,  vf  all ,  i  out ,  iw) 
dimension    pbar(l) 

art    =    pbar(l) 

expb    "    pbar(4) 

dstart    =»    pbar(2) 

exp"expb 

vin    =    pbar(5) 

c  dstart    is    the    distance    that    the    ram   moves    before    it    closes    the    vac" 

c  chamber    off. 

dela    ■   art-aram 

din    ■    vin/dela 

patm   =-    0.144*14.7 

if  (dbc.lt .depib)  go  to  100 
c      dbc  is  the  distance  of  the  ram  from  the  anvil  zero  position  or  it 
c      is  the  stroke, i.e   dbc  "    doh(m)  for  -doh(m)  It  depib   dbc=stroke 
c      dbc  less  than  depib  means  dbs  is  not  stroke 

fac  -  1 .0/(expb-l  .0) 

ramw  -  pbar(20) 
c      pbar(20)  is  the  ram  weight  which  is  not  needed  for  other  than  vac 
c      hammers 
c 

db  =»  dbc  +  din  -  dstart 

de  =•  depib  +  din  -  dstart 

vfall  =  dela*patm*(din**exp)*f ac/ramw 

vfall  -  vfall*(db**(l .-exp)-de**(l  .-exp)) 

vfall  -  vfall  +  (1 .0+patm*dela/ramw)*(dbc-depib)*2.0*32.17 

if  (vfall. It. 0.0)  write   (6,2)  vfall 

if  (vfall.lt .0.0)  stop 
2     format  (70h  improper  condition  met  when  determining  ram  velocity  a' 
It  ports,  vfall=»,  elO.4) 

vfall  =  sqrt(vfall) 

return 
100   dvn  =  dcyl+dbc-dstart+din 

if (dvn .It . din)  dvn-din 

fsuck  "    (din/dvn)**expb 

if  (f suck.gt.l  .0)  fsuck  -  1.0 

fsuck  =  dela*patm*(l  .0-f suck) 
1     format  (31h  negative  volume  in  vac  chamber , 4f 8 .2)  rM 


I 
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c 


return 
end 

subroutine  up  (pbar  ,  dnh  ,vnh,dnp,vnp,hin,pm,m,n,dcyl,dfin,vfall, 
1  po,vfallm,stroke,depib,aram,expp,iwt,iw,iout,p8l,t) 
dimension  pbar  (  1  )  ,  dnh  (  1  )  ,  vnh  (  l),dnp(l),vnp(l),hm(l),pni(l) 


c 

c  this  program  Is  used  to  determine  the  velocity  of  the  ram  of 

c  ced's  at  the  exhaust  ports.   the  analysis  uses  a  rigid  body 

c  pile  and 

c  velocii 


at  the  exhaust  ports.  the  analysis  uses  a  rigid  body 
ind  ram  assumption  for  closed  end  hammers  whose  upward 
Lty  will  not  cause  uplift  the  total  stroke  is  determine! 


patm  =  14.7*0.144 
dfi  =  dfin/12. 
t  »  0.0 
vr  =  0.0 
ml  =  m+ 1 
m2=«m+2 

vp=vnh(ml )*hm(ml )+vnh(m2 )*hm(m2) 
vcham  »  vo 

if  (dnh(ml ) .gt . dnh(m) )  vcham  =  vo-(dnh(ml )-dnh(m) )*aram 
g  =  32.17 
cylm="pbar  (  8  )  /g 
fatm  ~  patm*aram 
delp  -  0.0 

if  (pbar(l).gt.O.O)  delp-(pbar ( l)-aram)*2 . 117 
if  (pbar ( 1 ) .gt .aram)  fatm  =  patm*pbar(l) 
if  (pbar(20).gt.0.0)  fatm=0.0 
acyl=g 

if  (pbar(8) .gt .0.0)  acyl-dnh(lO) 
vcyl  =  vnh(lO) 
pam  =  0.0 
Iblow  =  0 
ram  =  0.0 
iwt  =  0 
tt-0.0 
in  =  l 
1  format  (7x,83htt       fp         fb       r  vel      r  pos      v  cyl 
1     d  cyl      v  top      d  top   ) 
if  (lout. It. 0)  write   (6,1) 


c      determine  rigid  ram  velocity 
c 

do  100  1=1, m 

ram  =  ram  +  hm(i) 
100   vr  =  vr  +  vnh(i)*hm(i) 
c 
c      determine  rigid  pile  velocity 


c 


do  101  1=1, n 
pam  =  pam  +  pm(i) 
101   vp  =»  vp  +  vnp(i)*pm(l) 
vdr  =  vr/ram 
vdp=vp/ (pam+hm(ml )+hm(m2) ) 
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i 

if  (vdr.gt.-0.05)  write   (6,3)  T 

3     format  (41h  ram  still  moving  downward  at  end  of  blow) 

if  (vdr .gt .-0.05)  stop 

ddr"dnh(m) 

ddp"dnh (ml ) 

dcdt"dcyl-dnh(ml) 

vcvt"vcyl-vnh(ml ) 

vcyl"vdp+vcvt 

dcyl"ddp+dcdt 

if  (dcyl .gt .ddp)  vcyl»vdp 

if  (dcyl  .gt . ddp )  dcyl=ddp 

iup  =  0 

if  (vdp.lt. 0.0)  iup  =1 

dpos  =  ddr 

drais  «  0.01*depib 
c 

c      start  loop  to  determine  incrementally  the  ram  speed  during 
c      ram  upwards  motion 
c 
1000  delt  -  ab8(drais/vdr) 

t=t+delt*f loat(l-iblow) 

tt-tt+delt 

in=in+l 

if  (iout  .It  .0 .and.in.eq .5)  write   (6,2)  1 1 , fp , fb , vdr , dpos , vcyl , 
1  dcyl, vdp, ddp 

if  (vcyl.lt .0 .0 .and. vcyl. It .vdp)  vcyl"vdp 
2  format  (9fl0.4  ) 

if  (in.eq.5)  in-0 

if  (iup.eq  .  1  .and  .ddp  .  It .  df  i  )  vdp  =•  0.0 

if  (iup .ne . 1 .and.ddp .gt .df i)  vdp  ■  0.0 

ddp  "  ddp  +  vdp*delt 

vcyl  =  vcyl  +  acyl  *  delt 

dcyl  -  dcyl  +  vcyl  *  delt 

if  (dcyl .ge .ddp)  vcyl=vdp 

if  (dcyl  .gt .ddp )  dcyl  =  ddp 

dpos  =  dpos  -  drais 

V  "  vcham  +  (ddp-dpos  )*aram 

fp  "  2.117*aram 

if  (iblow.eq.O)  fp  »(po*(vo/v)**expp )*aram 

dcyra  =  dpos-dcyl 

deb  =  -dpos 

fb  -  ftr (dcyra, pbar, iwt) 

if  (pbar(20 ) .gt .0  .0)  call  vacham(pbar , aram, depib , dcyl , deb , fb, vfallj 
1  ,iout,iw) 

if  (pbar(8)  .gt.0.0)  acy  l='g+(f  atm-f  b) /cy  Im 

if  (pbar(20).gt  .0.0)  f b-f b+patm*aram 

if  (pbar(20).lt.l0.e-8)  fb-fb-delp 

ac  ="  g-(f p-f b)/ram 

ve  -  vdr  +  ac*delt 

vdr  "■  ve 

vo  =  V 

po  ="  fp/aram 

if  (dpos .gt .-depib+dcyl)  go  to  1000 
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if  (iblow.eq.l)  go  to  1001 
c 

c      Iblow  ■■  1  means  ram  has  passed  the  exhaust  ports 
c 

iblow  -  1 

vfall  =  -vdr 
c      for  open  end  hammers 

stroke  =  vdr*vdr /64 . 34  +  depib 

drais  -  0.05 

if  (pbar(20) .gt  .0.0)  go  to  1001 

if  (pbar(6). It .0.001)  return 

if  (vfall. gt.vfallm)  Iwt  -  1 

if  (vfall. gt.vfallm)  psi=pbar (8)/ (pbar ( 1 )*0 . 144 ) 
c 

c      vfall  gt  vfallm  means  uplift 
c 

if  (vf all .gt .vfallm)  return 
c 

c      for  hammers  whose  bounce  chamber  ports  have  not  yet  been  closed 
c 

deps  =■  pbar  (7)-pbar  (6  )-depib 

if  (deps.lt  .0.0)  go  to  1001 

if  (vdr*vdr .It .64.34*dep8)  go  to  1001 

vdr  ■  sqrt (vdr*vdr-64 .34*deps) 

dpos  "  dpos-deps 

vdr  =  -vdr 
1001  if  (vdr. It. 0.0. and. iwt. ne.l)  go  to  1000 
c 

c      ram  reached  upmost  point 
c 

stroke  =  -dpos-dcyl 
c 

c      bounce  chamber  pressure  in  psi  (for  vfall  It  vfallm) 
c 

dpos  =  -stroke 

fb    -    ftr (dpos , pbar , iwt) 

psi-fb/(pbar(l)*0.144)-14.7 

return 

end 

subroutine  pi  lean  (itp,aop,vop,dop,anp , vnp ,dnp,8tp,pm, splice, sj, 

1  cdp,re8,re8o,8u,sok,vnplt,vcap,8oilm,8jjj,dtp,n,it,l8mlth,epsv, 

2  ial,esoil, ftp, jrat, iter, soi,dt2,dt6,pmi,r8um,dsum) 

dimension  aop (99 ) , vop (99 ) , dop (99 ) , anp ( 99 ) , dnp ( 99 ) , pm( 99 ) , s tp ( 99 ) , 

1  splice(99),sj(99),cdp(99),res(99),reso(99),3u(9  9),sok(9  9),vnp(9  9) 

2  ,soi(99),pmi(99) 

c  this  subprogram  performs  a  wave  analysis  for  a  pile  subject 

c  to  either  of  the  following  three  pile  top  variables 

c  iai  equal  to  0  ,  hammer  force  used  in  pilean 

c  iai  equal  to  1,  measured  force  used  in  pilean 

c  iai  equal  to  2,  measured  acceleration  used  in  pilean 

c  start  to  compute  the  pile  variables 

c 

c  splice  is  usually  at  the  structural  limit  of  the  pile  material  (te 
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c  hus    negativ)    except    where    splices    give    lower    value 

c  if    splice    is    between    0    and    -0.5    ft    it    is    a    slack 

c  it    is    the    iteration    counter    (assigned    outside) 

c  fu    and    fo    are    forces    at    an    element    downwards    positively 

c 

nml"n-l 

itp-0 

if    (it.gt.O)    go    to    550 

il-1 
c  prediction 

if(iai.lt.2)call    integr(dtp,aop,aop,vop,dop, vnp ,dnp,il  ,dt2,dt6) 

if(iai.eq.2)call    integr(dtp,aop,anp,vop,dop , vnp.dnp, il,dt2,dt6) 

g-32.170 

do    300    i=«2,n 

call  integr(dtp,aop,aop,vop, do p, vnp, dnp,i,dt2,dt6) 
300   continue 
550   continue 
c 

c      wave  analysis 
c      first  pile  top 
c 
400   fu  -  (dnp(2)-dnp(l))*stp(2)+(vnp(2)-vnp(l))*cdp(2) 

fod  "  ( vcap-vnp ( 1 ) )*cdp ( 1 ) 

if  (fod+f tp.lt. splice(l))  fod  -  0.0 

if  (iai.eq.l)  fod  -  0.0 

if  (fu.gt .-8plice(2))  fu  »  -splice(2) 

if  (splice(2).lt.-0.5.or .fu.lt.0.0)  go  to  175 

ext  "  dnp(2)-dnp( 1) 

if  (ext. It. 0.0)  go  to  175 

fu  -  0.0 

if  (ext.lt.-splice(2))  go  to  175 

fu  =-  (ext+8plice(2))*8tp(2)  +  (vnp(2)-vnp(l))*cdp(2) 
175   continue 

i  -  1 

call  sre8n(dnp,dop,su,sok,i,re80,res,soi) 

da  -  vnp(l)*sj(l) 

if  (ismith.eq. 1)  da  -  da  *  rea(l) 

if  (lai.ne.2)  go  to  200 

ftp  -  (anp(l )-g)*pm(l)-fu-f od+res(l )  +  da 

go  to  201 
200   continue 

anp(l)-g+(f tp+fod+fu-res(l)-da)*pmi(l) 

call  integr(dtp,aop,anp,vop,dop,vnp,dnp,i,dt2,dt6) 

r8um"res(l) 

dsum~da 
c 

c      elements  between  top  and  toe 
c 

201  do  301  i=2,nml 

il-i+1 
c 

fo  =  -fu 

fu  =  (dnp(il)-dnp(i))*3tp(il)  +  ( vnp (il )-vnp (i ) )*cdp (1 1 ) 
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c 

c 
c 


if  (fu.gt.-spllce(il))  fu  »  -splice(ll) 

if  (splice(il  ).lt  .-O.S.or.fu.lt  .0.0)  go  to  176 

ext  =  dnp (il )-dnp(i) 

if  (ext. It. 0.0)  go  to  176 

fu  -  0.0 

if  (ext .It .-8plice(il ) )  go  to  176 

fu-(ext+splice(il ) )*stp (il )+(vnp (il )-vnp ( i ) )*cdp ( il ) 
176   continue 

call  sresn(dnp,dop,su,sok,i,reso,res,soi) 

da  =  vnp(i)  *  8j(i) 

if  (ismith.eq. 1 )  da  =  da  *  abs(res(i)) 

rsum-rsum+res ( i) 

d8um"d8um+da 

anp(i)-g+(f o+fu-re8(i)-da)*pmi(i) 

call  integr(dtp,aop, anp ,vop,dop,vnp,dnp,i,dt2,dt6) 
301   continue 

start  pile  toe  analysis 

nl-n+1 

dnp  (nl  )»"dnp  (n) 

call  sresn(dnp,dop,su,8ok,nl,reso,res,sol) 

if  (res(nl).lt .0.0)  res(nl)-0.0 

dab=vnp (n)*sj(nl) 

if  (ismith.eq  .  1 )  dab=»dab*abs  (res  (nl ) ) 

if  (dab. It. 0.0)  dab-0.0 


c 
c 


call  sresn(dnp,dop,8u,sok,n,re80,re8,soi) 

da  =•  vnp(n)  *  8j(n) 

if  (ismith . eq . 1 )  da  =  da*abs (res (n) ) 

fo  =  -fu 

anp(n)=g+(fo-re8(n)  -da-res(nl)-dab)*pmi(n) 

rsum^rsum+res (n)+res(nl) 

dsum=«dsum+da+dab 

call  integr(dtp,aop,anp,vop,dop,vnp,dnp,n,dt2,dt6) 

itp-itp+1 

if  (jrat.eq.l)  go  to  750 

if  (itp.gt . iter)  go  to  750 

check  convergence  (if  dth  not  eq  dtp) 

err  ■  abs (vnpit-vnp (n) ) 

vnplt  -  vnp(n) 

for  no  convergence  repeat  analysis 

if  (err  .  gt . epsv)  go  to  400 
750   continue 

return 

end 

subroutine  j jnp (lcol,n, jnp , jmax) 

dimension   jnp(13) 

jmax=n 
;      for  n  le  13  or  6,  for  icol  gt  or  eq  o,  respectively 

do  105  i=l,13 

jnp(i)=0 
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105   If(l.le.n)  jnp(l)-i 

If (lcol.eq.O)go  to  115 
c     for  132  col.  form 
nspace**!  1 

If (n.lt.I4)go  to  400 
jniax"13 
go  to  120 
115   nspacc'A 
c      for  70  col.  form 

if(n.lt.7)go  to  AOO 
jmax=6 
120   ns=nspace+l 

dicr=»float(n-2)/float  (nspace) 
dincr=2.0 
do  130  i-3,ns 
dincr=dlncr+dicr 
130   jnp(i)=dincr+.5 

jnp(ns+l)=n 
400   return 
end 
c 
c 

subroutine  outln  (su , s j , qs , sth , stp , hm, pm, Ihamr , ee , n,m, Iw, xpt , 
1  lsmlthjhname,e8oil,apo,emp,rho,spllce,cdp,alph,ltyph,loute) 

dimension  hname (2 ) , su (99 ) , s j (99) , qs ( 99 ) , s th ( 10 ) , hm( 10 ) , ee(4) , 
1  stp(99),pm(99),cree(99),8pllce(99),cdp(99),dim(4) 
2,alph(99) 
data  dlm/4h   (s,4h/ft),4h  (k.s,4h/ft)/ 

4  format  (15x,14h  hammer  model  ,2a4) 

5  f ormat (6x,4 Ih  element      weight   stiffness     coeff.  ) 

6  format (6x,43h  number       (kips)    (k/ln)    restitution  ) 

7  format(6x,9h  anvil    , f 10  .3 , f  10  . 1 , f 10  .3) 

8  format(6x,9h   cap     , f 10  .3  ,  f 10  . 1 , f 10  .3) 

9  format  (6x,9h  cushion  , lOx, f 10 . 1 , f 10  .  3) 

10  format  (6x,9hplle  top  ,20x,fl0.3) 

12  format(53h  weight  stlffn.   pdamp.   splice   soll-s   soll-d, 
1        16h  quake   l.b.t.) 

13  format(37h  (kips)   (k/ln)  (ks/ft)   (kips ) , 8x, 2a4 , 
1        16h  (In)     (ft)) 

c 
c 

1401  format  ( 9x, 12 , 4x, f 10 .3 , f 10 . 1 , 3f 10  .3 , f 10  . 1 ) 

14  format  (15  ,  f 8 .3 , f 8 .0 , f 8 .2 , f 8 .0 , 3f 8  .3  ,  f 8  . 1  ) 

15  format  ( 2x, 3htoe ,3 2x, 3f 8  .3) 

16  format  (/ 2x, 35hcoef f Iclent  of  restitution  of  soil     ,f8.3) 
11  format  (26x,17h  pile  properties  //) 

17  format  (2x,12hpile  length", f 5 .0 ,5h  ft.,,14h  area(at  top)=, 
*f6.1,5h  s-ln) 

18  format  (2x,17he.  modul(at  top )= ,f 6 .0 , 6h  ksl.,, 
*19h  spec.  wt.(at  top)  =  , f 5  .0 ,  lOh  Ibs/cu  ft//) 

4711  format(lh  ) 
ml=m+l 
m2=m+2 
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do  4712  i-1,3 
c 

c      output  hammer  model 
c 

4712  write   (6,4711) 
do  100  i-1,4 

100   cree(i)  "  8qrt(ee(i)) 

write   (6,4)  hname( 1 ) ,hname (2) 

write   (6,5) 

write   (6,6) 

wth-hm(l)*32.17 

stfh-0.0 

i-1 

write   (6,1401)  i,wth 

if  (m.eq.l)  go  to  104 

do  101  i=2,m 

stfh=sth(i-l)/12 .0 

wth='hm(i)*32.17 
101  write   (6,1401)  i,wth,stfh 
104  continue 

anvwt"hm(ml )*32 .  17 

anvstf =sth(m)/12 .0 

capwt"hm(m2)*32 . 17 

caps tf-sth (ml)/ 12.0 

if  (ityph.eq.3)  capwt='hm(ml  )*32  .  17 

if  (ityph.eq.3)  caps tf -s th(m) / 12 .0 

if  (ityph.ne.3)  write   (6,7)  anvwt , anvstf , cree ( 1 ) 

erep=cree( 2) 

if  (ityph.eq.3)  erep=cree(l) 

write   (6,8)  capwt , caps tf ,erep 

cshstf  =»sth(m2)/12  . 

if  (ityph.eq.3)  cshs tf -s th(ml ) / 12 .0 

if  (cshstf .gt. 10 .**9.)  cshstf-O. 

write   (6,9)  cshs tf , cree(4) 

if  (cshstf .It. 0.00001)  cshstf-10.**12 

write   (6,10)  cree(3) 
c 

c      print  pile  properties  and  model 
c 

4713  format  (Ihl) 

if  (ioute.ne.l)write  (6,4713) 
write   (6,11) 
write   (6,17)  xpt.apo 
al  =  emp/144. 
a2  »  rho*32170. 
write   (6,18)  al,a2 
11-1 

if (ismith.ne.l)il-3 
12-il+l 
write  (6,12) 

write  (6,13)(dim(i),i  =  il  ,12) 
c 

salph-0.0 
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do    200    il=l,n 
200    salph-aalph+alph(il) 

dd    -    0.0 

do    102    i-l,n 

pwt-    pm(i)*32.17 

pstf-    8tp(i)/12.0 

q8f-qs(i)*12 .0 

dd="dd+xpt*alph(i)/8alph 

sum-pwt+pstf +cdp(i)+abs (splice (1) )+su (i )+s j ( i )+qsf 

dif "abs (sum-suo) 

suo  =  suni 

if (i.lt.3.or.i.ge.n)  dif-1.0 

if (ioute.ne.l)   dif=1.0 

if (dif .gt  .l.e-4)write  (6 , 14 ) i, pwt ,ps tf , cdp(i  )  , splice (i  )  , su ( i  ) , 
1  sj(i),q8f,dd 
102   continue 

al  -  qs(n+l)*12.0 

write   (6,15)  8u(n+l) , s j (n+1 ) , al 
22    format  (45h   skin  friction  constant  for  all  rult  values  ) 

if  (cdp(99).gt.0.5)  write   (6,22) 

al  *  sqrt(esoil) 

write   (6,16)  al 

return 

end 

subroutine  integr(dt,xo,xn,xio,xiio,xin,xiin,i,dt2,dt6) 

dimension  xo(l),xn(l),xio(l),xiio(l),xin(l),xlin(l) 

xin(i)-xio(i)+dt2*(xo(i)+xn(i)) 

xiin(i)-xiio(i)+xio(i)*dt+(xo(i)+xo(i)+xn(i))*dt6 

return 

end 

subroutine  out2 (out , jnp , sth , hm, s tp , pm, emp ,rho,icol,m,n,dtp,jpmax, 
1 jdou t, jemax.fintmx, ex, j ma x,iw,i out, result, area, jex.ityph) 

real  in 

dimension  s th( 10 ) ,hm( 10 ) , s tp( 99 ) , pm(99 ) , conv( 10 ) , s tscnv( 15 ) , 
lout(3200), jnp (13), ex( 600), result (99), area (99), jex( 600) 

data  p, psi, sea, in/4h    p,4hp8i),4h  sea,4h  in)/ 

hi  -  p 

h2  -  psi 

if  (ityph.eq.3)  hi  =  sea 

if  (ityph.eq.3)  h2  -  in 

1  format  (25x,30h  hammer  and  pile  forces(klps)  ) 

2  format  (22x,36h  hammer  and  pile  velocities (ft/sec)  ) 

3  format  (24x,32h  hammer  and  pile  stresses  (ksi)  ) 

4  format  (22x,36h  hammer  and  pile  accelerations (g '  s)  ) 

5  format  (20x,40h  hammer  and  pile  displacements  (inches) 

6  format  (51x,30h  hammer  and  pile  forces(kips)  ) 

7  format  (48x,36h  hammer  and  pile  velocit ies (f t /sec )  ) 

8  format  (50x,32h  hammer  and  pile  stresses  (ksi)  ) 

9  format  (48x,36h  hammer  and  pile  accelerations (g 's )  ) 

10  format  (46x,40h  hammer  and  pile  displacements  (inches) 

11  format  (2x,25h  jp   time      hammer      ,  9x,15h  pile 

12  f ormat(6x,29h  (ms)   ram  m     anvil     top  ,i6,4i8) 

13  format  (2x,25h  jp   time      hammer      ,30x,15h  pile 


) 


) 
elements  ) 

elements  ) 
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14  format  (6x,29h  (ms)   ram  m     anvil     top  ,16,1118) 

15  format  (15 , f 6  . 1 , 1 5f 8  . 1 ) 

16  format  ( 15 , f 6  . 1 , 15f 8  .3  ) 
21  format(15,f6.1,15f8.2) 

31  format  (15h     J    time    ,a4,5x,28hd  ram      anv     ftop    vtop, 
*62h     dtop     fmid    vmid     dmid    sum  at  sum  dp  rt  toe     ftoe,' 
*15h    vtoe     dtoe) 

32  format  (15h     j    time    , a4 , 6x, 27hf top    vtop     dtop     ftoe, 
*15h    vtoe     dtoe) 

33  format  (8x,9h(ms)     (,a4,32h    (in)     (in)    (kips)  (ft/s)  , 
*61h   (in)    (kips)  (ft/s)    (in)    (kips)  (kips)  (kips)    (kips), 
*14h  (ft/s)    (in)) 

34  format  (8x,9h(ms)     (,a4,32h    (kips)  (ft/s)    (in)    (kips), 
*14h  (ft/s)    (in)) 

35  format  (i5,f7.1,f9.1,2f8.3,2(f9.1,f6.1,f8.3),f9.1,2f7.1,f9.1,f6.1, 

*f8.3) 

36  format  (15 , f 7  . 1 , f 9  . 1  ,  2 (f 9  . 1  ,f 6  . 1  ,  f 8  .3  )  ) 
ml  =  m+1 

klim  =  200 

imax  =>  ( jmax+2)*klim 

k  -  1 
kk  -  1 
c 

ehmr  -  31000. *144. 

rhohmr-0. 492/32. 17 
c      output  option  for  printing 

iiout  =  iabs(iout) 

if    (iiout. ge. 20)    iiout=iiout-20 

if  (iiout. ge. 10)  iiout  =  liout-10 

if  (iiout. eq.O)  go  to  135 
c      for  Iiout  eq  0  do  not  print  varibles  vs  time 

conv( 1 )  =  1 . 

conv( 2 )  =  1 . 

conv(3)=1.0 

conv(4)  -  1./32.17 

conv(5)  "  12. 

if  (icol.gt.O)  go  to  101 
c      title  for  132  columns 

if  (iiout. eq.l)  write   (6,1) 

if  (iiout. eq. 2)  write   (6,2) 

if  (iiout. eq. 3)  write   (6,3) 

if  (iiout. eq. 4)  write   (6,4) 

if  (iiout. eq. 5)  write   (6,5) 

if  (iiout. eq. 6)  write   (6,32)  hi 

if  (iiout. eq. 6)  write   (6,34)  h2 

if  (iiout. eq. 6)  go  to  130 

write   (6,11) 

write   (6,12)  ( jnp(i ) , i-2 , jmax) 

go  to  102 
101   continue 
c      title  for  80  columns 

if  (iiout. eq.l)  write   (6,6) 

if  (iiout. eq. 2)  write   (6,7) 
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if  (iiout.eq.3)  write   (6,8) 

if  (ilout.eq.4)  write   (6,9) 

if  (llout.eq.5)  write   (6,10) 

if  (iiout.eq.6)  write  (6,31)hl 

if  (iiout.eq.6)  write   (6,33)  h2 

if  (ilout.eq.6)  go  to  130 

write   (6,13) 

write   (6,14)  ( jnp(i ) , i-2 , jmax) 
102   continue 

if  (iiout.ne.3)  go  to  107 
c 

c      stress  conversion  from  forces 
c 

cons  tl  =  1./144. 

if     (m.gt.l)    constl    =    sqrt (s th(m-l )*hm(m) / (ehmr*rhohmr ) ) 

const2  =  8qrt(s  th(m)*hm(ml )/ (ehmr*rhohmr ) ) 

const  1-1  .0/(con8tl*144 .0) 

con8t2-l .0/( const 2* 14 4.0) 

do  103  i-l,jmax 

k  =  jnp(i) 
103  st8cnv(i)»l .0/area(k) 

k  -  1 

kk  -  1 

do  106  i=l,imax 

if  (i.gt.klim)  go  to  104 

out(i)  =  out(i)*constl 

go  to  106 

104  if  (i.gt.2*klim)  go  to  105 
out(i)  "  out(i)*const2 

go  to  106 

105  out(i)  -  out(i)  *  stscnv(kk) 
k  -  k+1 

if  (k.le.klim)  go  to  106 

k  -  1 

kk  -  kk  +  1 

106  continue 
c 

c      for  all  except  6  option 
c 

107  do  108  i»l,imax 

108  out(i)  "  out(i)  *  conv(iiout) 
jj  -  0 

do  110  jp» jdout , jpmax, jdout 

jj  "  JJ+1 

jjmax    =    (  jinax+l)*klim+j  j 

tt    -    f loat( jp)*dtp*1000. 

if  (iiout . eq . 1  .or . iiout . eq . 2 .or . iiout . eq . 4 )  write   (6,15)  jp,tt 
l(out(i),i-jj, jjmax, klim) 

if  (iiout.eq.3)  write   (6,21)  jp , tt , (out ( i ), i=jj , jjmax, klim) 

if  (iiout. eq. 5)  write   ( 6  ,  16  )  jp, tt , (out (i ) , i  =  j j , j jmax,klim) 
110   continue 
c 
c      for  6  option  only,  first  132  columns 
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c 
130   if  (llout.ne.6)  go  to  135 

If  (liout . eq . 6 .and . icol . eq . 0 )  go  to  131 

kp-0 

do  132  jp  -  jdout , jpmax, jdout 

kp-kp+1 

kpmax'»15*klim+kp 
132  write   (6,35)  jp , (out (i ) , i=kp,kpmax,kllm) 

go  to  135 
c 

c      6  option  -  80  columns 
c 

131  kp-0 

do  134  jp  ■  jdout , jpmax, jdout 

kp"kp+l 

kpmaxl-200+kp 

kp2  -  4*klim+kp 

kpmax2=9*klim+kp 

134  write   (6,36)  jp , (out (i ) , i=kp, kpmaxl ,klim) , (out ( i ) , l=kp2 ,kpmax2 , 
1  klim) 

135  continue 
c 

c      for  all  options  extreme  value  tables 
c 

17  format ( IhO , 24x, 27htable  of  extrema,  time  step) 

18  format (49h0no.    fmin,jmn    fmax,jmx   strmin,jsn  8trmax,jsx, 
1         21h    vmax.jvx   dmax,jdx) 

19  format(49h         (k)         (k)        (ksi)       (ksi) 
1         21h   (f/s)       (in)     ) 

20  format(i4,2(f7.1,lh, ,i3),lx,2(f7.2,lh,i3),f7.1,lh,,i3,f6.3,lh,,i3) 
write  (6,20) 

write  (6,17) 
write  (6,18) 
write  (6,19) 
do  120  i-l,n 
nn"5*n+i 
in2=«i+2*n 
120   write  (6,20)  i , ex( i+n) , jex(i+n) , ex(i ) , jex( i ) , (ex( j ) , jex( j ) , 
1  j"in2,nn,n) 
return 
end 

subroutine  piel  (mp , n, xp , ap , ep , rp , s tp , pm, alph, iout , iw, icol, 
1  ipel,area) 

'dimension  xp( 20 ) , ap ( 20 ) , ep( 20 ) , rp( 20 ) , s tp ( 99 ) , pm( 99 ) ,alph( 99) 
1  ,area(99) 
salph-0.0 
do  101  il-l.n 
101  salph=-salph+alph(il) 
c 

c      element  counter  i2,  cross  section  index  13 
c 

if  (ipel.eq.2)  go  to  108 
12-1 
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c 
c 
c 


1 


13-2 

lJ-13-1 

xt-0.0 

xb-(xp(mp)*alph(l2))/salph 

dx  "  xb 

at=ap( 1 ) 

rpt»rp(l) 

ept-ep( 1 ) 

go  to  110 

repeat  102  loop  for  every  segment  12 

102  xt-xb 

dx  "  (xp (mp) *alph( 12) ) /salph 

xb  "  xt  +  dx 
10   stp(l2)-10.el2 

pm(l2)-0.0 

area(l2)-0.0 


c 

c 
c 


c 
c 
c 


repeat  103  loop  until  next  cross  section  depth  Is  below  segment 

103  If  (xb.lt.xp(13))  go  to  107 

xl=xp (13 )-xt 

xt-xp(i3) 

aao-(at+ap(i3))/2. 

at-ap(l3+l) 

rpo-(rpt+rp(l3))/2. 

rpt=rp(l3+l) 

epo=(ept+ep(l3))/2. 

ept='ep(l3+l) 

If  (xl.lt. 10. e-8)  go  to  105 

area(l2)  =  area(l2)+  aao*xl 

summ=rpo*xl*aao/( 144000 .0*32.17) 

sumk=aao*epo/xl 

pm(l2  )"'summ+pm(  12 ) 

stp(l2)-(sumk*stp(l2))/(8umk+stp(l2)) 
105  13-13+1 

if  (I3.gt.mp)  go  to  118 

1 j-13-1 

go  to  103 
107  xl-xb-xt 

for  bottom  portion  of  segment 

XX  -  xp(l3)  -  xp(lj) 

xf  -  1.0 

If  (xx.gt.0.0)  xf  =  (xb-xp(l j))/xx 

aau  =ap(lj)+(ap(l3)-ap(lj))*xf 

aao-(at+aau)/2. 

at-aau 

rpu  =  rp(lj)+(rp(l3)-rp(lj))*xf 

rpo=»(rpt  +  rpu)/2. 

rp t=rpu 
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epu  -  ep(ij)+(ep(i3)-ep(lj))*xf 

epo"(epu+ept )/2. 

ept"epu 

If  (xl.lt. 10. e-8)  go  to  118 

area(l2)  -  area (12 )+aao*xl 

8umm-rpo*xl*aao/( 144000. 0*3 2 .17) 

8umk"aao*epo/xl 

stp(i2)-(sutnk.*stp(i2)  )/ (sumk+s  tp(  12)  ) 

pm(l2  )='8umm+pm(i2  ) 
118   area(12)  =  area(i2)/dx 

If  (12.eq.n)  go  to  108 

12-12+1 
c 

c      next  segment 
c 

go  to  102 
108   continue 
c 

c      print  given  Information 
c 

111  format  (20x,16hplle  description/) 

112  format  ( 1 6h  x  bel.  top  (ft),13f8.1) 

113  format  (16h  a  (sq.  in.)     ,13f8.1) 

114  format  (16h  e  (ksl)         ,13f8.0) 

115  format  (17h  gamma  (Ib/cu  ft)  ,  f 7  . 1  ,  12f 8  . 1 ) 
write   (6,111) 

max=6 

If  (Icol . eq  .  132)  max=13 

14-1 

15-max 

If  (I5.gt.mp)  15-mp 

116  write  (6,112)  (xp (1 ) , 1-14 , 15) 
write  (6,113)  ( ap (1 ) , 1-14 , 15 ) 
write  (6,114)  (ep ( 1 )  , 1  =  14 , 15) 
write  (6,115)  ( rp ( 1 ) , 1  =  14 , 15) 
If  (I5.ge.mp)  go  to  117 
14-15+1 

l5-l4+max 

if  (I5.gt.mp)  I5»mp 

go  to  116 
117   continue 

If  (lpel.ne.2)  return 
c 

c      determine  average  areas  for  the  case  where  masses  and 
c      stiffnesses  were  given 
c 

dl  =  0.0 

do  145  1  =  1, n 

do  146  j=2,mp 

If  (xp(j).gt.dl)  go  to  147 

146  continue 

147  area(l)=ap( j-1) 

145   dl  =  dl  +  alph(l)*xp(mp)/salph 
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c 
c 


c 
c 

c 


c 
c 
c 
c 

c 


return 

end 

subroutine  diesel 

common  vlnh.dlnh, 

1  aop , anp , dop, dnp , 

2  splice , deplb,ara 

3  emp , rho , dth , dtp , 

4  f pto, Iw, pcom, tde 

5  , df In, jdout , jpma 

6  ,ltyph,lprelg, vf 
dimension  vlnh(10 

1  vnh(10),dnh(10), 

2  aop(99),anp(99), 

3  res(99),reso(99) 
4dsacp(3),out(3200 

5  ,aoah(99),voah(9 

6  ,pbar(20),pml(99 
kllm  -  200 

kllm    . . .    max    no . 
klim*15=dlm(out) 
expt    ■    1  .-1  .  /expp 
cdh    =    pm(99) 


aoh, voh , 

vop.vnp, 

m,ecus ,ecap , e 

n,m, jrat 

1,  lout ,  o 

X, ex, Ico 

allm, s tr 

),dlnh(l 

sth(lO), 

dop(99), 

,sj(99), 

).lnp(13 

9),doah( 

),sol(99 


doh,anh,vnh,dnh,sth,hm,am,sta,ma,esoil, 
stp,pm,cdp,res,reso,sj,sok,qs,su, 

pt,eanv,vfall,vcham,xpt,sjjj, 
,lult,rult,sollm,dsacp, 

ut, expp, teml,temo,lnp, stroke, strokn,vo,po 
l,fintmx,  temax, result, Is mi th, Iter 
max, dcyl.p bar, area, jex 
0),aoh(10),voh(10),doh(10),anh(10), 
hm(lO),  vnp(99), 

dnp(99),vop(99),stp(99),pm(99),cdp(99), 
sok(99),qs(99),su(99),splice(99), 
), ex (600), re suit (100), jex (600) 
99),area(99),delah(99),sta(10),am(10) 
),hml(10) 


of    values    of    one    variable    In    output. 


set   up    output    variables 


11 out    »    labs(lout) 

if    (iiout.ge.20)    llout=llout-20 

If    (llout.ge.lO)    llout=llout-10 

scj    =■    0.0 

lal-0 

patm=»2  .117 

dt2-dtp*.5 

dt6-dtp*dtp/6.0 

dh2-dth*.5 

dh6-dth*dth/6.0 

jout-0 

jdout  »  6  .0*xp t/ (sqrt (emp/rho )*dtp ) 

jdout  =•  jdout  /  100 

tjd  =  f loat( jdout)*dtp*1000. 

if  (tjd. gt. 0.5)  jdout  =  (0.0005/dtp) 

jdout=l 

jdout  =  jdout  +  1 

of  output  time  to  analysis  pile  time  increment 


+  0.5 


if  (jdout. It. 1) 

if  (llout.eq.6) 

jmax  . . .  number 

jmax  *  6 

If  (icol.gt.O)  jmax="13 

if  (jmax.gt.n)  jmax-n 

jmax  ...  number  of  pile 

size) 

initialize 

f intmx-0.5 
ts    -    0.0005 


variables    printed    (dependent    on    form 


I 


I 
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801 


If  (pbar(9) .gt.0.0)  ts  -  sjjj 

if  (pbar(9).gt.0.0.and.ts.lt.l0.e-8) 

red-0.90 

If  (emp.lt. 3000000.)  red  -  0.0 

kk-0 

nl-n+1 

nml=n-l 

ftpo  *  fpto 

ftit  -  fpto 

ftpoa  "ftpo 

tlim  -  0.0 

fanvoa  "  0.0 

fcuoa  =  vo 

vnpit  =  vop(n) 

vnhit  *  vinh(m) 

vo  =  vcham  +  (dinh{m+l )-dinh(m) )*aram 

timp  =  0.0 

tt»0.0 

ti-0.0 

tblow  =  -1.0 

rlmp  =  1. 

ridel  =  1. 

pcomr  =»  pcom 

if  (pbar(19).gt.0.0)  go  to  801 

pcomf  -  0 .5*(stroko-depib)/depib 

reduction  due  to  poor  scavenging 

if  (pcomf .gt . 1 .0)  pcomf  =  1.0 

if  (pcomf .It .0,5)  pcomf  =  0.5 

pcom"l .0+(pcom-l .O)*pcomf 

continue 

pcoml"pcom 

if  irst-O 


ts 


0.01 


irem  -  0 

vlpmax  - 

0 

.0 

dnpmax  " 

0 

.0 

mml=m-l 

ml-m+1 

m2-m+2 

g-32.17 

enthru  = 

0 

.0 

emax  =»  0.0 

t21c  -  2000.*xpt*sqrt(rho/emp) 

limit  of  main  loop 

nt  -  0.005*t21c/dtp 

ooa"l . / . 144 

ooJrt-l./float(jrat) 

dsil-l./dsacpd) 

dsi2-l./d8acp(2) 

dsiS-l  ./dsacpO) 

dtpm-dtp*1000. 

jck    -   nt 

if  (f loat(nt )*dtp.lt .0  .050)  nt  =  0.050/dtp 

if ( temax . gt . 1  .0 )  nt  =  temax/dtpm 
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c 

c      loading  and  rebound  stiffnesses  for  pile  top, anvil,  and  capblock 

c 

stptl  -  9th(m2)*9tp(l)/(8th(m2)+8tp(l)) 

8tpt2  -  (8th(m2)/ecu8)*(stp(l)/ept)/((sth(m2)/ecu8)+8tp(l)/ept) 

seal  -  8th(m) 

star  ••  stal/eanv 

stcl  *  sth(ml) 

stcr    »    stcl/ecap 
c  hammer    variables    to    initial    values 

do    100    i=l,m2 

hmi(i)=l ./hm(i) 

voh(i)-vinh(i) 

doh(i)-dinh(i) 

voah(i)-vinh(i) 

doah(i)=dinh(i) 

delah(i)    =»    0.0 

aoah(i) "g 
100   continue 
c      convergence  criteria 

epsv  -  0.02 

epsf  "  1.0 

do  97  1  =  1, n 

pmi(i)-l ./pm(i) 

sol (1 )"8ok( i )/esoil 
97    aop(i)  -  g 

pmi (n)-l ./(pm(n)+8oilm) 

8oi(nl)-sok(nl)/e8oll 

do    450    1=1,3200 
450    out(i)=0.0 
c  extremum   array 

do    460    j-1,6 

do    460    1=1, n 

ij-n*(j-l)+l 

ex(lj)    =    0.0 

jex(ij)    -   0 
460      continue 

acyl    =    g 

pbr    =    0.144*14  .7*pbar(l) 

if    (pbar(l).lt.l0.e-8)    pbr    =    2.117*aram 

delp    =    0.0 

if    (pbar(l).gt.aram)    delp    =    2 . 1 1 7* (pbar ( 1 )-aram) 

if    (pbar(20)  .gt.O  .0)    pbr    =    0.0 
c  cylinder    variables 

if (pbar(8).gt.0.0)    cy lmi=g/pbar ( 8) 

dcyl    =    doh(ml) 

vcyl    =    voh(ml) 
c  Ignition    variables 

tslow    -    1.0 

tsa"l  .0/pcom 

tsb-( 1  .0-tsa)/ts 
c  contact    area    variables 

af a-(3.-f intmx)/2. 
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af b-(l .-f intmx)/(2.*d8acp(l)) 

exp  ="  1.35 

if  (lout. It. 0)  write   (6,653) 
c 

c      start  main  loop 
c 

do  700  j-l,nt 

if  (j.gt.jck)  jck— 1 

if  (vlpmax. It . vnp (  1  ) )  vlpmax  =  vnp(l) 

if  (red. It. 0.01)  go  to  103 

if    (vnp( 1 ) . gt .0 .9*vlpmax.or . vlpmax. It . 5  .0)    go    to    103 

stptl    »    8tpt2    *    red 

red  =  0.0 
103  continue 

dpos  =  doh(m)-dcyl 
c      force  on  top  of  ram  for  regular  closed  end  or  vac  hammer 

ptr  ■"  f  tr  (dpos  ,  pbar  ,  iwt ) 

dbc  =  -doh(m) 

if     (pbar ( 20 ) . gt .0  .0 )    call    vacham(pbar , aram, depib, dcy 1 , dbc , ptr , 
1    vf all, iout , iw) 

if(pbar(8).gt.O .0 )acy l-g+(pbr-ptr )*cylmi 

if (pbar(20).gt .0.0)ptr=ptr+pbr 

if  (pbar(20) .It .10  .e-8)  ptr  =  ptr-delp 

dcyl  =•  dcyl  +  vcyl  *  dtp 

vcyl  "  vcyl  +  acyl  *  dtp 

if  (dcy 1 .gt . doh(ml ) )  vcyl  =  voh(ml) 

if  (dcyl.gt .doh(ml))  dcyl  -  doh(ml) 

tt-tt+dtpm 
c      absolute  time  counter  (millisec.) 
c      time  after  impact  (timp) 
c      rimp=»0.0  means  first  impact  has  occurred 

if  (rimp.gt .0  .5)  t imp=(doh(m)-doh(ml ) ) /voh(m) 

if  (rimp. It .0 .5)  t imp=t imp+dtp 

ti»'ti+dtp*(l  .0-pcom/pcoml) 
c      ignition  start  for  atomized  fuel 

if  (pbar(9).gt .O.O.and.rimp.lt.0.5)  ridel  =  0.0 

if  (timp . ge . tdel .and. ipreig  .eq .0  )  ridel  =  0.0 

if  ( j.gt .0. and. j.eq. ipreig)  ridel  =  0.0 

if  (ridel.gt.O .5 .or .pcom.lt .0.01)  go  to  470 

temo"temo*pcom 

po"po*pcom 

exp  ■  expp 

pcom  »  0.0 

470  continue 

if  (tt.lt. 50.)  go  to  471 
if  (ddc.lt  .12. *depib)  go  to  471 
c      for  ram  reaching  ports 

if(tblow.lt.O  .0)pblow=-(pn-patm)*100.*dtp 

tblow  =  1.0 

pn  =  pn  -  pblow 

if(pn.lt.patm)pn=patm 

po  "  pn 

471  continue 
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it-0 
c 

c      overall  loop  starts 
c 
800   continue 

fcuo  ■  fcuoa 

ftpo  "  ftpoa 

fanvo  -  fanvoa 

do  99  i-l,m2 

voh(i )=voah( i) 

aoh(i  )=aoah (i  ) 
99    doh(i)=doah(i) 
c 

c  hammer    analysis 

c 

do    600    jh=l,jrat 

lth-0 
c  prediction 

do    585    i-l,m2 

if    (it.eq.O)    anh(i)=aoh(i) 

if  (it.gt.O)  anh(i)=»aoh(i)+f  loat(  jh)*delah(i) 
585   continue 

do  101  1-1, m2 
101  call  integr (dth,aoh,anh, voh.doh, vnh, dnh, i , dh2 , dh6) 

c 

c      hammer  cycle  starts 
c 
500   continue 

i-1 

anh(l)=g+( (dnh(2)-dnh(l))*sth(l)+ptr)*hmi(I) 

call  integr(dth,aoh,anh,voh,doh, vnh , dnh , i , dh2 , dh6 ) 

do  102  1=2, mml 

il-i+1 

iml-i-1 

anh ( 1 )  =  g+( ( dnh ( i 1 )-dnh ( i ) )*  s  th ( i )  +  ( dnh ( iml ) -dnh ( i ) ) 
1  *8th(iml))*hmi(i) 

call  int egr (dth, aoh , anh , voh , doh, vnh , dnh , i , dh2 , dh6) 
102   continue 
c      now  check  displacement  of  ram  and  impact  block 

V  -  vcham  +  aram* (dnh(ml )-dnh(m) ) 

if  (v. It. vcham)  v  =  vcham 

pn  ■  po* ( vo/v)**exp 

temn  "  temo*(pn/po )**expt 
c      last  ram  element 

ddis  ■  dnh (ml )-dnh (m) 

if    (pcom.lt .0 .1)    t8low-tsa+t8b*ti 

if    (tslow.gt . 1  .0)    tslow    -    1.0 

pe    -   pn*tslow 

afac    =•    1.0 

if    (ddis.lt  .-dsacpd  )  )    af  ac-af  a+af  b*ddis 

if     (ddis .It .-3  .*d8acp(l))    afac-fintmx 

fp  »  pe*aram*afac 

fanv  =■  0.0 
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if  (ddis.gt.0.0)  go  to  811 
dvel  ■  vnh(ml)  -  vnh(m) 

> 

ddlso  ■■  doh(ml  )-doh(m) 
ddd  ■  ddis  -  ddiso 
:      anvil  spring  force  always  tension=  + 

call  stiff(ddis,dvel,8tal,star, f anvo ,fanv,dsil ,ddd) 
if  (fanv.gt .0 .0)  fanv  =  0.0 

811  fintac  -  -fp+fanv 
ddc='ddis*12.0 

if     (ddis.gt.0.0)    irem    =    0 
if    (ddis.lt  .0.0)    rimp    -    0.0 
if    (ddis .It .0 .0 .and. irem. ne . 1 )    ifirst    =    1 
:  ifirst    »    1    means    impact    has    occured    the    first    time 

if    (if irst.ne.l)    go    to    675 
timp»0.0 
jck.-0.0015*t21c/dtp 

irem    »    1 

tlim  -  tt  +  1 .15*t21c 
if  (tlim.lt .10 .)  tlim  »  10. 
675   continue 

anh(m)=g+( (dnh (mml )-dnh(m) )*sth (mml )+fintac)*hmi(m) 
call  integr(dth,aoh,anh,voh,doh, vnh, dnh,m,dh2,dh6) 
:      anvil 

fintac  »  -fintac 

dha  -  0.0 

ddis  -  dnh(m2)-dnh(ml) 

feu  -  0.0 

if  (ddis.gt.0.0)  go  to  812 

dvel  ■  vnh (m2 )-vnh(ml ) 

dha  "  dvel*cdh 

ddiso  =  doh(m2 )-doh(ml ) 

ddd  -  ddis  -  ddiso 

fcuo  =  -fcuo 

call  8tiff(ddis,dvel,stcl,stcr,fcuo,fcu,dsi2,ddd) 

if  (feu. gt. 0.0)  fcu=0.0 

fcuo  =  -fcuo 

812  continue 

anh(ml )"g+(f Intac+f cu+dha)*hmi  (ml ) 

call  integr(dth,aoh,anh,voh,doh,vnh,dnh,ml,dh2,dh6) 
:     cap 

576  continue 

dtl  -  f loat(jh)*dth 

i  -  1 

if (it .gt .0 .and. jrat .eq . 1  )go  to  575 

call  integr(dth,aop,aop,vop,dop,vnp,dnp, 1 ,dh2,dh6) 

if ( jrat .eq. 1  )go  to  575 

dtl=f loat( jh)*dth 

dnpl=-dop(l)  +  (dtl/dtp)*(dnp(l)-dop(l)) 

vnpl-vop( 1 )  +  (dtl/dtp)*(vnp(l )-vop(  1) ) 

if (it .gt.O)go  to  576 
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dl2-dtl*.5 
dl6-dtl*dtl/6.0 

call  lntegr(dtl,aop, aop , vop , dop , vnp , dnp , 1 ,dl2 ,dl6) 
575   contlnua 

dnpl-dnp  ( 1 ) 
vnpl"vnp( 1 ) 
ddls  -  dnpl-dnh(m2) 
vcap  "  0.0 

dvel  -  0.0 

ftp  -  0.0 

If  (ddls. gt  .0.0)  go  to  813 

dvel  -  vnpl-vnh (m2) 

vcap  -  vnh(m2) 

ddiso  »  dop(l)-doh(m2) 
ddd  -  ddis-ddlso 
ftpo  =  -ftpo 

call  stif f (ddis.dvel.stptl , stp t2 , f tpo , f tp , dsi3 , ddd ) 
if  (f tp.gt.-splice(l))  ftp  =  -spllceCl) 
ftpo  »  -ftpo 
813   feu  -  -feu 

anh(m2)-g+(fcu+f tp+dvel*cdp(l)-dha)*hmi(m2) 

call  lntegr(dth,aoh,anh, voh,doh,vnh,dnh,m2,dh2,dh6) 

1th  -  ith  +1 

ftp  -  -ftp 


c 

c      If  dth  eq  dtp  (jrat-l)  the  following  Is  skipped  (one  time 

c      Increment) 

c 

if  (jrat.eq.l)  go  to  650 

If  (1th. gt. Iter)  go  to  650 

err  -  abs (vnhlt-vnh (m) ) 

vnhlt  »  vnh(m) 

If  (err  .gt .epsv)  go  to  500 
650   continue 

do  501  1=1, m2 

delah(l)=aoh(l)+(anh(l)-aoh(l))*oo jrt 

aoh(l)=anh(l) 

voh(l)-vnh(l) 
501   doh(l)-dnh(l) 

temo  "  temn 

po  "  pn 

vo  -  V 

fanvo  ■  fanv 

ftpo  -  ftp 

fcuo  "  feu 
600   continue 
c 

c      pile  analysis 
c 

call  pi lean  (Ip t ,aop , vop , dop.anp, vnp , dnp , a tp, pm, splice, 8j,cdp, res 
1  reso, su, s ok, vnp It ,vcap,sollm,scj,dtp,n,lt,lsmlth,epsv,lal,esoll. 
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2  ftp, Jrat, Iter, sol, dt2,dt6,pml,rsum,dsum) 
c 

c      check  for  convergence 
c 

it  -  it  +  1 

if  (it. gt. iter)  go  to  850 

errv  -  abs (vnplt-vnp (n) ) 

if  (jrat.eq.l)  vnpit  =  vnp(n) 

if  (  jrat  .eq . 1 .and .errv. gt .epsv)  go  to  800 

err  -  abs (f tit-ftp) 

ftit  -  ftp 

if  (err .gt.epsf )  go  to  800 
850   continue 
c      prepare  output  for  current 
c      time  increment  and 
c      set  up  starting  values 
c      for  next  step 
c 

vmaxp  =  0.0 

do  401  i-l,nl 

reso(i )  =  res (i) 

aop(i)  =■  anp(i) 

vop (i)»vnp (i ) 

if  (abs (vop (i )) .gt .vmaxp)  vmaxp  =  abs(vop(i)) 

401  dop(i)-dnp(i) 

if  (dnp(n) . gt .dnpmax)  dnpmax  "    dnp(n) 

fanvoa  "  fanvo 

fcuoa    ■    fcuo 

ftpoa    ■    ftpo 

do    402    i«l,m2 

aoah(i )=anh ( i  ) 

voah(i ) =vnh( i) 

402  doah(i)-dnh(i) 
dopinc    =■    dop(l)*12. 
den    "    vop ( 1 )*dtp*f tp 

c  transferred    energy 

enthru    =■    enthru    +   den 

if    (enthru. gt . emax)    emax    =    enthru 

jout    "    jout    +    1 

ftpo    -    ftp 

if     ( jout.ne. jdout)    go    to    699 

jout    =    0 

pt"ptr/pbar ( 1  ) 

no2  =»  n/2 
c 

pq*pe*ooa 
652  format  (Ih,i4,4i2,f6.1,f8.3,2f6.1,2f8.1,2f6.1,2(f6.1,f8.1),3f8.1, 
1  f7.3,f6.0) 

do  686  i»no2,nml 

if (i .ne .no2 .and. i .ne .nml )go  to  686 

il  -  i+1 

com  "  dnp (i )-dnp ( il ) 

f  »  com*stp(il) 
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if  (f  .It.splicedl))  f  -  splicedl) 

If  (f  .gt  .O.O.or.aplicedl  )  .It  .-.5)  go  to  685 

f  -  0.0 

If  (com.lt.spllce(il))  f  -  (com-8plice( il ) )*8 tp(il ) 

685  fopn  -  f 

If  (i.eq.no2)  fop5  -  f 

686  continue 

c      debug  output 

653  format 

1     (132h    jp  f  t  h  p   time    dcham    vru    van     flnt      fpt 
a   vl     en     v5       f5     vn       fn       cp       rs       da 
b    d    t   ) 

if  (iout.lt.O)  write   (6,652) 
a   j, if irs t , it , ith, ipt . tt , ddc  , vnh(m) , vnh (ml ) , f intac , f tp , vop( 1 ) , 

1  enthru,vop(no2),fop5,vop(n),fopn,pq,rsum,dsum,dopinc,pt 
if  (iiout.lt. 6)  call  fill (kk, klim, out , jmax, iiout , dnh, s th, 

lfintac,ftp,inp,dnp,stp, splice, vnh , vnp , anh , anp , jpmax, max jp , ex, area 

2  j,m,n, Jex, jck) 

c      jpmax  is  the  latest  J 

c      fills  in  the  output  array  out(klim*15) 

c      maxjp  is  the  maximum  number  of  values  stored  of  one  variable 

c      maxjp  equals  approx.  jpmax/jdout 

if  (iiout. eq. 6)  call  f ill2(n,m, out , pq , dnh , f tp , vnp , dnp , f op5 , s j , 
Irs um, ds urn, res, fopn, kk,icol,tt, is mi th,j, maxjp, jp ma x,stp, area, 
2  splice, ex, jex, j, jck) 
c      check  whether  analysis  was  carried  out  sufficiently  long 
If  (temax.gt .1  .0)  go  to  699 
If  (vlpmax*0.20.1t.vmaxp)  go  to  699 
if  (tt.lt.tllm)  go  to  699 
if  (tt.lt. t21c.or.tt.lt  .20.0)  go  to  699 

if  ((dnh(ml )-dnh(m) ) .gt . . l*deplb.and .dnp (n) . It .dnpmax*0  .9)  go  to 
1  701 

if  ( (dnh(ml )-dnh(m) ) .gt . . 2*deplb.and.dnp (n) .It .0 .98*dnpmax)  go  to 
1  701 

699  ifirst  -  0 

700  continue 

701  continue 

fintmx  =  float(j)*dtp 

dfin  =  (dnpmax-qs(n) )*12 . 

vnh( 10)»vcyl 

dnh(lO)  -  acyl 

If    (Iout.lt.O)    write       (6,654)    enthru,emax 

anp(99)    ■   emax 

654  format  ( SOhOt ransf erred  energy,  fin-  max»,f6.1,2h  -,f6.1,5h  k-ft) 
pcom  =  pcomr 

temo  "  temn 

return 

end 

subroutine  down  (s trmax, vf allm, pbar , hm, depib,m, iw, iout , t ) 

dimension  pbar ( 1 ) ,hm( 1 ) 

t=0.0 

art-pbar ( 1 ) 

str  "  8 trmax 
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patm"14 .7*0.144 

pmax-patm+pbar ( 8)/pbar(l) 

prat-(patni/pmax)**(l  .0/pbar(4)) 

vbin  -  pbar(6)*pbar(l)  +  pbar(5) 

dup-(vbin/pbar(l ))*(!. 0-p rat) 

dmax"pbar( 6 )-dup 

d8f  ■  pbar(2) 
c      dup  »  distance  from  bounce  chamber  vents 
c      dmax  =  distance  from  top 
c      dpos  "  distance  from  anvil  (negative) 

if  (dmax.gt .dsf )  go  to  202 
c      max  stroke  penetrates  into  safety  chamber 

prat  »  (vbin/(pbar(5)+dsf *art ))**pbar(4) 

prat  =  (prat*patm/pmax)** ( 1 . /pbar ( 4) ) 

dmax  =  dsf*prat 
202   continue 

dpos  =■  dmax  -  pbar(7) 

ram  ■  0.0 

do  200  i  -  l,m 
c  ---  delete  original  source  code 
200   ram  -  ram  +  hm(i) 


c 


strmax  =  -dpos 

if  (st r .gt .strmax)  str  =  strmax 

start  with  ram  at  position  where  uplift  is  imminent 

totd  »  -dpos-depib 

if  (str. It. 0.1)  go  to  300 

totd  "  str-depib 

dpos  "  -str 

strmax  »  str 
300   continue 

nst  =  totd/0.05 

dfall  »  totd/f loat (nst) 

g  -  32.17 

ao  -  g 

vo  -  0.0 

do  100  i-l.nst 

a  ■  g+(ftr (dpos , pbar, iwt )-patm*art ) /ram 

va  "  vo/a 

delt  -  sqrt (va*va+2 .*df all/a)-va 

t  -  t+delt 

V  ■  vo  +  0.5*(a+ao)*delt 

dpos  "  dpos  +  dfall 

vo  ■■  V 
100   ao  -  a 

vfallm  ■  V 

if  (str .gt .0 .1 .and.iout . It .0   )  write   (6,2)  str.v 
2     format  (20h  stroke  (less  max. ) ■, f 6 . 1 , 23h  ft,  velocity  at  ports", 
lf6.1,5h  f t/s  ) 

if  (str. gt. 0.1)  return 

if  (lout. It. 0)  write   (6,1)  strmax, vfallm 
1     format(28h  maximum  stroke  (no  uplif t )=, f 6 .2 , 30h  ft  maximum  veloci 
ly  at  ports-, f 6.2, 5h  ft/s) 


c 
c 

c 


c 
c 

c 


686 
451 
452 


c 

c 
c 


453 
454 
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return 

end 

subrout 
1  dnp, s  t 

dlmensl 
lsplice( 

kk    -   kk 

ml    "    in+ 

kkmax 


I 
P 


Ine    flll(kk,klim,out,jmax,iiout,dnh,sth,fintac,ftp,inp, 
p, splice, vnh.vnp, a nh,anp, jpmax,maxjp,ex,area, j,m,n, jex, jcl 
on    out(l ) ,dnh(l),sth(l) ,inp(l ),dnp(l) ,stp(l ) , 
1) ,vnh(l ),vnp(l) ,anh(l),anp(l),ex(l),area(l),jex(l) 

+    1 
1 

( jmax+l)*klim  +  kk 


check  if  out  is  full 

if  (kk.gt.klim)  go  to  459 

k2  -  kk  +  klim 

k3  -  k2  +  klim 

k4  -  k3  +  klim 

1  -  1 

if    (iiout .ne . 1 .and.ilout .ne .3)    go    to    452 

force  assignment 

out(kk)  -  0.0 

if  (m.gt.l)  out(kk)-(dnh(m-l)-dnh(m))*sth(m-l) 

out(k2)  -  fintac 

out(k3)  -  ftp 

1-2 

kkl  -  inp(2) 

do  451  i  »  k4 , kkmax, klim 

kml  -  kkl-1 

com  =  dnp(kml )-dnp(kkl ) 

out(i)  -  com*stp(kkl) 

if    (out(i).lt.splice(kkl))    out(i)    -    splice(kkl) 

if    (out(i) .gt .0.0  .or .splice(kkl ) .It .-.5)    go    to    686 

out(i)    -    0.0 

if  (com.lt .splice(kkl ))  out(i)  »  (com-splice (kkl ) )*s tp (kkl ) 

if  (out(i).lt.O.O.and.out(i).gt .-.5)  out(i)  =  0.0 

continue 

1  -  1+1 

kkl  -  inp(l) 

go  to  458 

if  (llout.ne.2)  go  to  454 

velocity  assignment 

out(kk)  =  vnh(m) 

out(k2)  =»  vnh(ml) 

do  453  i»k3 , kkmax, klim 

kkl  -  inp(l) 

out(i)  -  vnp(kkl) 

1  =  1  +  1 

go  to  458 

if  (iiout. ne. 5)  go  to  456 
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c      displacement  assignment 
c 

out(kk)  -  dnh(m) 

out(k2)  -  dnh(ml) 

do  455  l-k3 ,kkmax,klim 

kkl  -  inp(l) 

out(i)  -  dnp(kkl) 

455  1  -  1+1 
go  to  458 

c 

c      acceleration  assignment 

c 

456  out(kk)  =  anh(m) 
out(k2)  =  anh(ml) 

do  457  i»k3 ,kkmax,klim 
kkl  =  Inp(l) 
out(l)  -  anp(kkl) 

457  1  -  1+1 

458  jpmax  =  j 
maxjp  "  kk 

459  continue 
c 

c      calculate  the  extremum  array  ex(n*6) 

c      first  forces  and  stresses 

c 

sexl    =■    ftp/area(l) 

if    (ftp.gt.ex(I))    jex(l)=j 

if    (f tp.gt.ex(l))    ex(l)    =    ftp 
c 

c      jck  less  0  means  no  minimum  force  or  minimum  stress  check 
c 

If  (jck. It. 0)  go  to  105 

if  (f tp.lt.ex(n+l))  jex(n+l)-J 

if  (f tp.lt.ex(n+l))   ex(n+l)  -  ftp 

if  (sexl.lt.ex(2*n+l))  jex(2*n+l)-j 

if  (sexl .lt.ex(2*n+l))  ex( 2*n+l ) -sexl 
105   continue 

if  (sexl.gt.ex(3*n+l))  jex(3*n+l)=j 

if  (sexl .gt.ex(3*n+l))  ex(n*3+l )-sexl 

do  461  i-2,n 

com  -  dnp (i-1 )-dnp (i  ) 

felp  =•  com*stp(i) 

if  (f elp.lt.splice(i))  felp  =»  spllce(i) 

if  (f elp.gt .O.O.or.splice(i)  .It  .-.5)  go  to  685 

felp  -  0.0 

if  (com.lt .splice(i) )  felp  =  (com-spll ce (i ) )*s tp (i) 

if  (felp. It. 0.0. and. felp. gt.-. 5)  felp  =  0.0 
685   continue 

selp  -  felp/area(i) 

if  (felp.gt.ex(i))  jex(i)=j 

if  (felp.gt.ex(i))    ex(i)  «■  felp 

if  (jck. It. 0)  go  to  103 

if  (felp.lt.ex(n+i))  jex(n+i)-j 
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if  (felp.lt.ex(n+l))  ex(n+i)  -  felp 
if  (8elp.lt.ex(2*n+i))  jex(2*n+i)-j 
if  (8elp.lt.ex(2*n+i))  ex(2*n+i)  -  selp 
103   continue 

if  (selp.gt.ex(3*n+i))  jex(3*n+i)-J 
461   if  (8elp.gt.ex(3*n+i))  ex(3*n+i)  =  selp 
c 
c      velocity  and  displacement  extrema 


c 


do  462  i-l,n 
if  (vnp(i).gt.ex(4*n+i))  jex(4*n+i  )=■  j 
if  (vnp(i).gt.ex(4*n+i))  ex(4*n+i)  =  vnp(i) 
disi  -  dnp(i)  *  12. 

if  (disi.gt.ex(5*n+i))  jex(5*n+i)-j 
462   if  (disi.gt.ex(5*n+i))ex(5*n+i)  -  disi 
return 
end 


end 

subroutine  fill2  (n.m, out , pq , dnh, f tp , vnp, dnp, f no5 , s j , rsum, dsum, 

1  res,ftn,kk,icol,tt,ismith,j,maxjp, jpmax, s tp , area , splice, ex, jex, 

2  jl.jck) 

dimension  out (3200 ) , dnh ( 10 ) , vnp (99 ) , dnp (99 ) , res (99 ) , s j ( 99 ) , 
1  splice(99),stp(99),area(99),ex(600), jex(600) 
_ 1  — _^i 


nl-n+1 

ml=m+l 

no5=n/2 

kk-kk+1 

klim=200 
c 

c      check  if  out  is  full 
c 

if  (kk.gt.klim)  go  to  102 

kl-kk+klim 

k2=-kl+klim 

k3=k2+klim 

k4=»k3+klim 

k5-k4+klim 

k6-k5+klim 

k7-k6+klim 

k8-k7+klim 

k9-k8+klim 

kl0-k9+klim 

kll-klO+klim 

kl2-kll+klim 

kl3-kl2+klim 

kl4-kl3+klim 

kl5-kl4+klim 
c 

c      assign  variables  to  out 
c 

out(kk)-tt 

out (kl  )"pq 

out(k2)-dnh(m)*12. 

out(k3)-dnh(ml)*12. 
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out(k4)=f tp 

out (k5 ) =vnp ( 1 ) 

out(k.6)-dnp(l)*12. 

out  (k7)==f  no5 

out(k8)=vnp(no5) 

out(k9)-dnp(no5)*12. 

out (klO )»r3um 

out  (kl  1  )'«dsum 

rtoe  =  s j (nl )*vnp (n) 

if  (rtoe. It. 0.0001)  rtoe=0. 

if  (ismith . eq . 1 )  rtoe=rtoe*abs (res (nl ) ) 

out(kl2)=res(nl)+rtoe 

out(kl3)»f tn 

out (kl4)-vnp(n) 

out(kl5)-dnp(n)*12. 

if  (icol.ne.O)  go  to  101 

out(k7)-out(kl3) 

out(k8)=out(kl4) 

out(k9)-out(kl5) 

101  jpmax=j 
max jp"kk 

c  calculate    the    extremum   array    ex(n*6) 

102  coatinue 
8exl~ftp/area(l) 

if  (ftp.gt.ex(l))  jex(l)-jl 

if  (f tp.gt.ex(l))  ex(l)-ftp 
c 

c      jck  less  0  means  no  minimum  force  and  stress  check 
c 

if  (jck. It. 0)  go  to  105 

if  (ftp.lt  .ex(n+l))  jex(n+l)-jl 

if  (f tp.lt.ex(n+l))  ex(n+l)-ftp 

if  (sexl.lt.ex(2*n+l))  jex(2*n+l )- jl 

if  (sexl  .lt.ex(2*n+l))  ex(  2*n+l  )=»sexl 
105   continue 

if  (sexl  .gt.ex(3*n+l))  jex(3*n+l)  =■  jl 

if  (8exl.gt.ex(3*n+l))   ex(3*n+l)  -  sexl 

do  103  i-2,n 

com  =  dnp (i-1 )-dnp (i) 

felp  "  com*stp(i) 

if  (felp.lt.splice(i))  f elp-splice ( i ) 

if  (f elp.gt.O.O.or.splice(i).lt .-.5)  go  to  685 

felp  =  0.0 

if  (com.lt.8plice(i))  felp  =  (com-splice(i ) )*s tp (i) 

if  (felp.lt .0.0. and. felp. gt. -0.5)  felp=0.0 
685   continue 

selp*felp/area(i) 

if  (felp.gt.ex(i))  jex(i)=jl 

if  (felp.gt.ex(i))  ex(i)=felp 

if  (jck. It. 0)  go  to  106 

if  (felp.lt.ex(n+i))  jex(n+i)=jl 

if  (felp.lt.ex(n+i) )ex(n+i)=felp 

if  (selp.lt.ex(2*n+i))  jex(2*n+i )= jl 
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if  (selp.lt .ex(2*n+i))  ex( 2*n+i )-selp 
106   continue 

if  (8elp.gt.ex(3*n+l))  jex(3*n+l )- jl 

103  If    (8elp.gt.ex(3*n+i))    ex(3*n+i) -selp 
do    104    i=»l,n 

if     (vnp(i).gt.ex(4*n+i))     jex(4*n+i)= jl 

if     (vnp(i).gt.ex(4*n+i))    ex( 4*n+l )-vnp (i ) 

dlsi-dnp(i)*12. 

if     (disi.gt.ex(5*n+i))    jex(5*n+i )= jl 

104  if     (disi.gt.ex(5*n+i))    ex(5*n+i)=disi 
return 

end 

function    ftr    (dpos , pbar, iwt ) 

dimension    pbar    (20) 

iwt-0 

patm«14 .7*0.144 

art="pbar  ( 1 ) 

d8f»pbar(2) 

expb'*pbar(4) 

vct"pbar (5) 

depbh^pbarCS) 

dbbt«pbar(7) 

rwh"pbar (8)+patm*art 

dbc=»pbar  (  7  )+dpo8 

vbin  »  depbb*art  +  vet 

if  (dbc.gt .depbb.or .dbbt .It .0 .1)  ftr"patm*art 

if  (dbc.gt . depbb.or .dbbt . It .0 . 1 )  return 

vbf in=dbc*art+vct 

vsf ~dsf *art 

if  (dbc.lt.dsf)  vbf in-vsf+vct 

ftr"patni*art*(vbin/vbfin)**expb 

if  (dbc.lt.dsf)  ftr-f tr*(vsf/(art*dbc))**expb 

if  (ftr.gt.rwh)  iwt-1 

if  (ftr.gt.rwh)  ftr-rwh 

return 
c      art  ...  area  at  top  of  ram 

c      dsf  ...  distance  of  safety  chamber  from  top 
c      expb  . . .  exponent 

c      vet  ...  volume  of  compression  tank 
c      depbb  ...  distance  of  exhaust  ports  from  top 
c      rwh  ...  weight  of  cylinder  etc. 

c      dbbt  ...  distance  between  top  and  bottom  -  ram  length 
c      vbin  ...  initial  volume  of  bounce  chamber 
c      vbf in  ...  final  volume  of  bounce  chamber 
c      dbc  ...  current  position  ...  distance  from  top 

end 

subroutine  hael  (ihamr , dtcrh , dtcra , hname , ir ) 
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5  ,  df in, jdout , jpmax, ex, icol , f Intmx ,  temax , result , ismith , it er 

6  ,ityph,ipreig,vfallm,strmax,dcyl,p bar, area,  jex 
dimension  vinh( 10 ) , dinh( 10 ) , aoh( 10 ) , voh( 10 ) , doh ( 10 ) , anh ( 10 ) , 

1  vnh(10),dnh(10),8th(10),hm(10),vnp(99), 

2  aop(99),anp(99),dop(99),dnp(99),vop(99),stp(99),pm(99),cdp(99), 

3  res(99),reso(99),sj(99),sok(99),qs(99),su(99),splice(99), 
4dsacp(3),out(3200),inp(13),ex(600),result(100), jex(600), 
i8tore(l,26,2),8ta( 10 ) , am( 10 ) ,hname ( 2 ) , pbar ( 20  )  , 

i  area(99) 

if=»8 
12  format  (2a4,9f8.2) 
2  format  (10f8.2) 

ihamrr  =  ihamr 

do  107  i-1,20 

am(i)  -  0.0 
107   pbar(i)-0.0 

convs  =■  12  .0 

If  (ihamr. eq.O)  go  to  50 

for  ihamr  =  0  read  from  cards,  otherwise  read  from  file 

do  52  i=l , ihamr 
52  read  (if, 54)  (  (  s  tore  (  1  ,  j  ,k.)  ,k»l  ,  2  ) ,  j  =  l  ,  26  ) 
54  format   ( 2a4/ 10( 5el5  .  5/ )) 

rewind  if 

go  to  51 

50  continue 

read  (ir,12)  ( (store( 1 , i , j ) , j-1 , 2 ) , i-1 , 5  )  , 
1  store  (1,6,1) 

read  (ir,2)  s tore( 1  ,  6  ,  2  )  ,  ( (store( 1 , i , j  ) ,  j=l ,  2  ) , 
1  i-7, 25), stored, 26,1) 

51  continue 
ihamrr  "  ihamr 
ihamr  =  1 

ityph-8tore(l ,26,l)+.l 
if  (ltyph.lt  .l)ityph=-l 
ma  ■  store ( ihamr , 25 , 2) 
m*8tore(ihamr,8,2) 

if  (m.lt.l)  write  (6,10)  ihamrr 
10    format  (33h  insufficient  hammer  info.  ihamr=,i3) 
if  (m.lt.l)  stop 
ml="m+l 
m2"m+2 

8th(ml)-sth(8) 
8th(m2)=»sth(9) 
hm(m2)-hm(9) 
do  100  il-1,2 
100  hname(il)-8tore(ihamr ,1 ,11  ) 
hm(ml)-store(ihamr,9,l)/3  2.17 
sth(m)»8tore  ( ihamr , 9 , 2 )*convs 
if  (sth(ml ) .lt.0.1)  sth(m)=2.0*sth(m) 
if  (sth(ml)  .It .0.1)  sth(ml)=sth(m) 
if  (sth(m2).lt.  .1)  sth(m2)-10. 0**12 
8t08t-8th(m2) 


297 

8th(m2)-8t08t*8tp(l)/(8t08t+8tp(l)) 

if (ityph.ne.3)go    to    104 
hm(ml  )=»hm(m2) 
sth(iii)»sth(inl) 
sth(ml)=sth(m2) 
m2=inl 

if  (8  th  (m).  It.  1  .e-2)8th(ni)=hm(ml)*.5e8 
104       continue 

do    102    il-l,m2 

i2-il-l 

if  (il.eq.m)  hm( il )-s tore (ihamr , 11+1 , 1 )/32 . 17 

if  (il.ge.m)  go  to  101 

hm(il )-s tore (ihamr, i 1+1 ,1)/32.17 

8th(il)=store  (ihamr, il+1 ,2)*convs 

101  if  (il.eq.l)  i2=-l 
do  102  i3-i2,il 
tcrh-hm(il)/sth(i3) 

if  (i3.eq.l)  dtcrh=tcrh 

if  (tcrh.lt .dtcrh)  dtcrh=tcrh 

102  continue 
dtcrh=sqrt (dtcrh) 
dtcra-1000.0 
8th(m2)=s tos t 

if  (ma.eq.O)  go  to  105 

do  103  jl-l,ma 

j2-jl-l 

if  (jl.eq.l)  j2=.l 

j3  -  jl  +  21 

am(jl)-8 tore (ihamr, j3,l)/32.17 

sta(jl)  »  store ( ihamr , j3 , 2 )*conv8 

do  103  j4-j2,jl 

tcra»am( jl )/3ta(j4) 

if  (tcra . It .dtcra )  dtcra^tcra 

103  continue 
dtcra^sqrt (dtcra) 

105  tdel"store(ihamr,10, 1) 
:      8  tore (ihamr , 11 , 1 )  is  vin  in  in3 

vcham-8 tore (Ihamr, 11 ,2)/ 17 28.0 

depib-st or e (ihamr ,12,1 )/ 12 . 

a  ram-store (ihamr, 12,2)/144.0 

sjjj  -  8tore(ihamr,10,2) 

do  106  1-17,21 

pbar(l-16)-8tore( ihamr, 1,1) 
106   pbar(l-ll)-8tore(lhamr,l,2) 

pbar(H)=store  (ihamr  ,13,1) 

pbar(12)-store(ihamr,13,2) 

pbar(13)-store( ihamr ,14,1) 

pbar(14)»8tore( ihamr, 14,2) 

pbar(15)=store (ihamr ,15,1) 

pbar ( 19)-store(ihamr , 19,1) 
:      pbar(20)  gtr  0  Identifies  vacuum  chamber  hammer 

pbar (20) -St  ore (ihamr ,21 ,2) 

8trm-8tore(ihamr, 16 , 1 )/ 12 . 
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pbar ( 10 )=8  trm 

strmax  -  0.0 
c      pcom  Is  pressure  for  corresponding  fuel  setting 
c      pbar(Il)  Is  the  maximum  down  pressure  on  a  double  acting  a/s 
c      hammer  Identifier  for  such  hammers 

expp~store(ihamr, 16,2) 

if  (expp . It .0 . 1 )  expp^l.S 

if  (pbard  )  .It  .lO.Oe-8)  pbar(l)  =  aram 

efflcy"store(lhamr,15,2) 

if  (efficy.lt. 0.01)  efficy-0.95 

rmwt"0 .0 

do  220  1-1, m 
220  rmwt-rmwt+hm( 1 ) 

pbar( 16)»ef f icy 

pbar(17)=rmwt*32.17 

pbar( 18)-store(ihamr , 19,2) 

return 

end 

subroutine  airstm 

common  vlnh,dinh,aoh,voh,doh,anh,vnh,dnh,sth,hm,am,sta,ma,esoil, 

1  aop , anp , dop , dnp , vop , vnp ,stp,pm,cdp,res,reso,sj,sok,qs,su, 

2  spllce,deplb,aram,ecus,eass,ept,eanv,vfall,vcham,xpt,sjjj, 

3  emp,rho,dth,dtp,n,m,Jrat,lult,rult,sollm,dsacp, 

4  fCpo,iw,pcom,tdel,iout,out,expp,temi,temo,lnp,stroko,8trokn,vo,po 

5  ,df in, jdout , jpmax, ex, icol , f Intmx,  temax, result , ismith , it er 

6  , ityph, iprelg, vfallm, strmax, dcyl, pbar , area, jex 
dimension  vinh ( 10 ) , dinh ( 10 ) , aoh ( 10 ) , voh ( 10 ) , doh ( 10 ) , anh ( 10  ) , 

1  vnh(10),dnh(10),sth(10),hm(10),vnp(99),am(10),sta(10),voa(10), 

2  doa  ( 10  )  ,  aoa  (  10  )  ,  vna  (  10  )  ,  dna  (  10  )  ,  ana  (  10  )  ,  delaa  ( 10  )  , 

3  aop(99),anp(99),dop(99),dnp(99),vop(99),stp(99),pm(99),cdp(99), 

4  res(99),reso(99),sj(99),sok(99),qs(99),su(99),splice(99), 
4dsacp(3),out(3  200),inp(13),ex(600),result(100),jex(600) 

6  , aoah ( 99 ) , voah ( 99 ) , doah ( 99 ) , area ( 9  9 ) , de lah (99) 

7  ,voaa(10),aoaa(10),doaa(10),pbar(20),hmi(10),pml(99),soi(99) 

8  ,aml(10) 
klim  "    200 
jout  =  0 
nl-n+1 

nml  "  n-1 

ml  ■  m+1 

mar  "ma 

if  (mar. It. 1)  mar  «  1 

ial-0 

dt2-dtp*.5 

dt6-dtp*dtp/6  .0 

dh2-dth*.5 

dh6=dth*dth/6.0 

dsll-l./dsacpd) 

dsl2-l  ./dsacp(2) 

dsl3=-l  ./dsacp(3) 

oo jrt^l  ./float ( jrat  ) 

dtpm=dtp*1000. 

tt»0  .0 


299 


ml  "  ma 

cdh  -  pm(99) 

If  (ml.gt.ml)  ml  *  ml 

tlim  -  0.0 

iiout  ■  iab8(iout) 

twoloc=2 .O*xpt/sqrt(emp/rho) 

t21c  »  twoloc*1000. 

if  (iiout. gt. 19)  iiout  -  iiout  -  20 

if  (iiout. gt.  9)  iiout  =  iiout  -  10 

jdout  =  3  .0*twoloc/dtp 

jdout  =  jdout  /  100 

tjd  -  f loat( jdout)*dtp*1000. 
:      tjd  is  time  increment  of  output  in  millseconds 

if  (tjd. gt. 0.5)  jdout  "    (0.0005/dtp)  +  0.5 

if  (jdout. It. 1)  jdout=l 

jmax  "  6 
:      6  colums  of  pile  output  if  icol  "0   13  otherwise  if  not  gtr  n 

if  (icol.gt.O)  jmax-13 

if  (jmax.gt.n)  Jmax='n 

kk-0 

red  -  0.9 

if  (emp.lt. 3000000.)  red  -  0.0 

scj  »  0.0 

wram  »  0.0 

g  =■  32.170 

do  902  i-l,m 

902  wram  =■  wram  +  hm(i)*g 
wass^O.O 

do  905  i-l,mar 
905  was 8"wass+am(i )*g 
f aoa-wass 
gas  "  g*l  .5 

if  (wass  .  gt  .0  .0)  gas  ■■  (  1  .-s  j  j  j  )*g*(  1  .+wram/wass  ) 
gr  -  g 

if  (ma.lt.l)  faoa  -  0.0 
fa  -  0.0 
fao  -  0.0 

f tpo=wass+hm(ml )*g 
ftit  *  ftpo 
ftpoa  "ftpo 
fanvoa  ■  0.0 
vnpit  =  vop(n) 
vnhit  "  vinh(m) 
tbef-0.002 
vf allb=vf all-g*tbef 
vinh(ml)  =  0.0 
do  903  i=l,mar 
ami(i)-l ./am(i) 
delaa(i)  =0.0 
voaa(i)  -0.0 

903  aoaa(i)  =0.0 
dnpmax  =  0.0 
mml=m-l 
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maml  =  ma~l 

enthru  -  0.0 

emax  "  0.0 

nt  -  5 .O*twoloc/dtp 

Jck  -  1.5*twoloc/dtp+0.003/dtp      ^^^.^^ 

if  (float(nt)*dtp. It. 0.050)  nt  -  0.050/dtp 

If (temax.gt.1.0)  nt=temax/dtpm 

stDtl  -  8th(ml)*8tp(l)/(3th(ml)+stp(l))  /,w»«^^ 

8t?t2  -  (sth(ml)/ecu8)*(stp(l)/ept)/((8th(ml)/ecu8)+stp(l)/ept) 

stal  "  8th(m) 
star  -  8tal/eanv 
stasl  =  sta(mar) 
stasr  =  stasl/eass 
wp-0.0 

do  51  1-1, nml 
pmi(i)-l ./pm(i) 
soi(i)"8ok(i)/esoil 

51  wp»wp+pm(i )*g 

8ol(n)»'sok(n)/esoil 

soi(nl)=sok(nl)/e8oil 

pmi(n)»l ./(pm(n)+3oilm) 

do  98  i«=n,nl 

dop(i)-0.0 

vop(i)-0.0 

aop(l)-g 
98  re8o(i)-0.0 
do  52  i-2,n 

iip(U)-dop(il  +  l)  +  ((ftpo+wp)/8tp(il  +  l))*float(i)/float(n) 

vop(il)=0.0 

aop(ll )"g 
resodD-O.O 

52  wp=wp-pm(il  )*g  /-v/     l^ 

dinh(iiil)-dop(l)+8qrt(f  tpo*d8acp(2)/stpti; 

mal="ma+l 

if  (ma.lt.l)  go  to  1906 

doaa(ma)=dinh(ml)+8qrt(wa88*d8acp(3)/staCma)) 

w-wass-am(ma)*g 

if  (ma. It. 2)  go  to  1906 

do  906  1-2, maml 

11-mal-i 
doaa(il)-doaa(il+l)+w/8ta(ll) 

906  w-w-am(ll)*g 
1906  continue 

do  901  1-1, m 
vinh(l)-vfallb 
901  dlnh(i)— 0.5*(vfallb+vfall)*tbef+dinh(ml) 

do  100  1=1, ml 
voah(l)-vinh(l) 
doah(l)=dlnh(i) 
delah(i)  =  0.0 
aoah(i) =g 
hml(l)=l./hm(i) 
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100   continue 

epsv  "  0.1 

epsf  »  1  .0 

limout-klim*16 

do  450  i-l,llmout 
450  out(i)-0.0 

do  460  j=-l,6 

do  460  1=1, n 

lj-n*( j-l)+l 

ex(lj)  -  0.0 

jex(lj)  =  0 
460   continue 

fintmx-0.0 

if  (lout. It. 0)  write   (6,653) 

vlpmax  =■  0.0 
c 
c 

c      start  main  loop 
c 

do  700  j=-l,nt 

If  (j.gt.jck)  jck  — 1 

t t=tt+dtpm 

lt"0 

If  (vlpmax. It .vnp ( 1 ) )  vlpmax  "  vnp(l) 

If  (red. It. 0.01)  go  to  103 

If  ( vnp( 1 ) .gt .0 .9*vlpmax.or . vlpmax. It .5 .0)  go  to  103 

stptl  »  8tpt2  *  red 

red  -  0.0 
103   continue 
800   continue 

fao  =  faoa 

ftpo  -  ftpoa 

fanvo  "  fanvoa 

do  99  i-l,ml 

voa(i)  '■voaa(l) 

aoa(l)  "  aoaa(l) 

doa(l)  ■  doaa(l) 

voh(l)"voah(l) 

aoh(l )=aoah(l ) 
99    doh(l)-doah(l) 
c 

c     hammer  analysis 
c 

do  600  jh-l,jrat 

lth-0 
c      prediction 

do  585  1=1, ml 

If  (It.eq.O)  go  to  909 

anh(l)  =  aoh(l)+f loat( jh)*delah(l) 

ana(l)  =  aoa(l)+f loat ( jh)*delaa(l) 

go  to  585 
909   continue 

anh(l)  -  aoh(l) 
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ana (i)    =    aoa(i) 

585  continue 

do  586  1=1 , mar 

586  call  InCegr (dth,aoa,ana , voa , doa , vna , dna , 1 , dh2 , dh6) 
do  101  1-1, ml 

101  call  integr (dth,aoh,anh, vohjdoh, vnh,dnh, 1 ,dh2 , dh6) 
500   continue 

1-1 

If  (vlpmax.gt.l .5)  g=g*(-sjjj) 
if  (m.eq.l)  go  to  904 

anh(l)-g+(dnh(2)-dnh(l))*3th(l)*hmi(l) 
call  integr(dth,aoh,anh,voh,doh,vnh,dnh,l,dh2,dh6) 
if  (m.eq.2)  go  to  904 
do  102  1-2, mml 
11-1+1 
iml-1-1 

anh(l)-g+((dnh(ll)-dnh(l))*sth(i)+(dnh(lml)-dnh(l))*sth(lml)) 
1   *hmi(i) 
call  lntegr(dth,aoh,anh,voh,doh, vnh , dnh , i , dh2 , dh6 ) 

102  continue 
904   continue 

last  ram  element 

fanv  =  0.0 

danv  =  0.0 

ddis  =  dnh(ml )-dnh(m) 

If  (ddis. gt. 0.0)  go  to  811 

dvel  -  vnh(ml)  -  vnh(m) 

danv  -  cdh*dvel 

ddiso  -  doh(ml )-doh(m) 

ddd  -  ddis  -  ddiso 

anvil  spring  force  always  tension-  + 

call  stiff(ddis,dvel,stal, star, fan vo, fanv, dsil ,ddd) 

if  (fanv. gt  .0.0)  fanv  -  0.0 
811   continue 

flntac  -  fanv 

if  (tllm. It. 0.0001 .and.fintac.lt. 10 .0)  tllm  -  tt+t2lc*1.15 
ftr  =  0.0 

if  (m.gt.l)  ftr  =  (dnh(mml)-dnh(m))*sth(mml) 

anh(m)-g+(f tr+f intac+danv)*hml (m) 

g  =•  gr 

call  integr(dth,aoh,anh,voh,doh, vnh, dnh,m,dh2,dh6) 

flntac  -  -flntac 
:      now  check  total  assembly,  there  are  at  least  two  assembly  elements 

if  (ma.lt.l)  go  to  911 

if    (vlpmax.gt . 1 .5)    g    =    gas 

I  -  1 
ana(l)=g+(dna(2)-dna(l))*sta(l)*ami(l) 

call  integr(dth,aoa,ana,voa,doa, vna , dna , i , dh2 , dh6 ) 
if  (ma. It. 3)  go  to  912 
do  907  l-2,maml 

II  -  i+1 
iml  -  1-1 
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ana(i)=g+((dna(il)-dna(i))*8ta(i)+(dna(iml)-dna(i))*sta(lml)) 
1   *ami(i) 
call  integr(dth,aoa,ana,voa,doa, vna , dna , i, dh2 ,dh6) 

907  continue 
912   continue 

fa  -  0.0 
c      last  assembly  element 

ddis  =■  dnh(ml  )-dna(ma) 

if  (ddis. gt. 0.0)  go  to  908 

dvel=»vnh(ml  )-vna(ma) 
c 

ddiso  ="  doh(ml  )-doa  (ma) 

ddd  =  ddis-ddiso 

fao  =  -fao 

call  8tiff(ddls,dvel,stasl,sta8r,fao,fa,dsi3,ddd) 

if  (fa.gt.0.0)  fa  -  0.0 

fao  "  -fao 

908  continue 

if (ma. eq . 1 )ana ( 1 )"g+f a*ami ( 1 ) 

if  (ma.gt.l) 
1  ana(ma)=g+( (dna (maml )-dna (ma))*sta(maml)+fa)*ami(ma) 

call  integr(dth,aoa,ana,voa,doa, vna, dna,ma,dh2,dh6) 

fa  "  -fa 

g  "  gr 
911   continue 
c      now  analyze  cap 

dtl-f loat( jh)*dth 

i-1 

if (it  .gt .0  .and. jrat .eq. 1 )go  to  575 

call  integr(dth,aop,aop,vop,dop, vnp, dnp,l,dh2,dh6) 

if  (  jrat  .eq.l )go  to  575 

dtl-f loat( jh)*dth 

dnpl-dop(l)+(dtl/dtp)*(dnp(l)-dop(l)) 

vnpl-vop(l)+(dtl/dtp)*(vnp(l)-vop(l)) 

if (it.gt.O)go  to  576 

dl2-dtl*.5 

dl6=dtl*dtl/6. 

call  integr(dtl ,aop,aop , vop , dop, vnp , dnp ,  I,dl2,dl6) 
575   continue 

dnpl"dnp( 1 ) 

vnpl"vnp ( 1 ) 
576  continue 

ftp  =  0.0 

ddis  =  dnpl-dnh(ml) 

if  (ddis. gt. 0.0)  go  to  813 

dvel  "  vnpl-vnh(ml)  » 

c 

ddiso  =■  dop(  1  )-doh(ml) 

ddd  -  ddis-ddiso 

ftpo  =■  -ftpo 

call  stif f( ddis, dvel, stptl ,stpt2 , ftpo , ftp , dsi2 , ddd ) 

if  (ftp.gt  .-spliced))  ftp  =  -splice(l) 

ftpo  "  -ftpo 
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813   continue 

anh(ml ) =§+(£ intac+f a+f  tp-danv+dvel*cdp ( l))*hmi(ml) 

call  integr(dth,aoh,anh,voh,doh,  vnh  ,  dnh  ,inl  ,  dh2  ,  dh6  ) 

1th  -  ith  +1 

ftp  -  -ftp 
c      check  to  see  If  hammer  has  converged 

If  (jrat.eq.l)  go  to  650 

if  (ith. gt .iter)  go  to  650 

err  =■  abs  (vnhit-vnh(m) ) 

vnhit  =  vnh(m) 

if  (err .gt . epsv)  go  to  500 
650   continue 

do  501  i-l,ml 

delaa (i )=(ana(i)-aoa(i ) )*oo jrt 

delah(i)-(anh(i)-aoh(i))*oo jrt 

aoa(i)  =■  ana(i) 

voa(i)  *  vna(i) 

doa(i)  -  dna(i) 

aoh(i)=anh(i) 

voh(i)='vnh(i) 
501   doh(i)=dnh(i) 

vcap  =  vnh(ml) 

fanvo  =«  fanv 

ftpo  »  ftp 

fao  ■  fa 
600   continue 
c 

c      pile  analysis 
c 

call  pilean  (ipt,aop,vop,dop,anp, vnp ,dnp,stp,pm, splice, sj.cdp, res, 

1  reso,su,sok,vnpit,vcap,soilm,8cj,dtp,n,it,ismith,epsv,iai,esoil, 

2  ftp, jrt, iter, 8oi,dt2,dt6,pmi,rsum,ds urn) 
c      check  to  see  if  overall  cycle  converged 

it  »  it  +  1 

if  (it. gt. iter)  go  to  850 

errv  "  abs(vnpit  -  vnp(n)) 

if  (jrat.eq.l)  vnpit  =  vnp(n) 

if  ( jrat .eq . 1 .and.errv.gt .epsv)  go  to  800 

err  =  abs(ftit  -  ftp) 

ftit  =  ftp 

if  (err .gt .epsf )  go  to  800 
850   continue 
c 

c      go  to  800  means  repeat 
c      go  to  850  means  sufficiently  many  iterations  were  performed 

vnpmax  »  0.0 

do  401  i=l,nl 

reso(i )-res (i) 

aop(i )"anp (i ) 

vop(i)=»vnp(  i) 

if    (abs (vop (i )) .gt . vnpmax)    vnpmax    =    ab8(vop(i)) 
401       dop(i)=dnp(i) 

if  (dnp (n ) . gt . dnpmax)  dnpmax  =  dnp(n) 


305 


fanvoa  *  fanvo 

faoa    »    fao 

ftpoa    -    ftpo 

set    old    equal    new 

do    402    i-l,ml 

aoaa(l)    "   ana(i) 

voaa(i)    ■   vna(l) 

doaa(i)    -    dna(i) 

aoah(l)-anh(i) 

voah(i)"vnh(i) 
402      doah(i)-dnh(l) 

dopinc    =    dop(l)*12. 

dra    =    (dnh(ml)-dnh(m))*12.0 

sea    »    (dnh(ml)-dna(mar) )*12.0 

dbo    »    dnp(n) 

den    -    vop(l)*dtp*f tp 

enChru    "   enthru   +   den 

if    (enthru. gt.emax)    emax    »    enthru 
jout    =•    jout    +    1 

if    ( jout.ne. jdout)    go    to    699 
jout    »   0 

f tpo-f tp 
c  output    for    neg.    option    only 

no2  -  n/2 


P 

P 
P 


P 
P 


652 


685 

686 
653 


c 

c 


c 
c 


format  (Ih  , 14 , i2 , 3il , 3f 6  . 1 , f 6 .2 , 2f 7 .0 , 2f 6 . 1 , 2 (f 6 . 1 , f 8 . 1 ) , 3f 8 . 1 , 

1  2f6.1,f7.2)  ■ 

do  686  i-no2,nml  ^ 

if  (i.ne.no2.and.i.ne.niiil)go  to  686 

il  -  1+1  M 

com  =  dnp(i)-dnp(il)  H 

f  a  com*stp(ll) 

if  (f  .It.splice(il))  f  =  splice(il) 

if  (f .gt.0.0.or.splice(il).lt.-.5)  go  to  685 

f  -  0.0 

if  (com.lt.spllce(il))  f  -  (com-8plice( 11 )  )*s tp (11) 

fopn  »  f 

if  (i.eq.no2)  fop5  -  f 

continue 

format 
1      (132h   jp   fiph   time    vru    van    sep    fint     ftp 
a   en     v5       f5     vn       fn       fa       rs       da 
bdb    sea   ) 

if  (lout. It. 0)  write   (6,652)  m 

a        j,if  irst,lt,ith,lpt,  tt,vnh(m),vnh(ml),dra,f  intac.f  tp,  voM 

1  ), enth ru, vop (no2),fop5,vop(n),fopn,f a, r sum, dsum, dopinc, dbo, sek 

store  output 

if  (iiout.lt. 6)  call  f ill (kk ,klim, out , jmax, iiou t , dnh , s th , f int i 

1  f tp,inp, dnp,stp, splice, vnh,vnp,anh,anp, jpmax, max jp , ex, area, j,m, 

2  jex,jck)  m 


P 
P 
.P 


fills  in  the  output  array  out(klim*15) 
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c 
c 
c 


if  (iiout.eq.6)  jl  =  j 

if  (iiout.eq.6)  call  fill2  ( n , m, ou t , sea , dnh , f tp , vnp , 
Idnp,  fop5,sj,rsuin,dsum,res,fopn,kk,icol,tt,israith,jl,maxjp,jpmax, 
28tp,area,splice,ex,jex,j,jck.) 

if  (iout.ge.O)  go  to  463 

if  (f intac.gt . f intmx)  f intmx=f intac 
463  continue 

if  (temax.gt .1 .0)  go  to  699 

if  (tt.lt.tlim)  go  to  699 

if  (tt.lt.0.5*t21c)  go  to  700 

if  (dnp(n) .It .dnpmax*0 .8)  go  to  701 

699  ifirst  =  0 

end  of  main  loop 

700  continue 

701  continue 

dfin  =  (dnpmax-qs (n) )* 12 . 
efin  =  enthru 

if  (df in.gt.0.0)  iblct  =12. /dfin 
654   format  (IhO.lOh   fin  set=  ,f8.4,21h  inches    fin  enthru=  ,f6.1, 
1  19h  k-ft    max  enthru=  ,f6.1,19h  k-ft    blow  count=  ,i5  ) 
if  (iout.lt.O)  write   (6,654)  dfin, ef in, emax, iblct 
anp(99)  =  emax 
return 
end 
subroutine  output  (out, res, jnp,iout,dt, jpmax, jdout, iult,n, jdlim, 

1  alph,iseg,jselec,ymax,coli,title,stpl,pml) 
common / do t /i buf (2000), ibufo 

dimension  jselec(13),big(5),plly(5),prj(5),punit(5) 

2  ,out(3000), jnp(13),res(100),iseg(15),alph(9  9), 
1  jdum(15),pys(5),iunit(5),salph(99),title(10) 

ibufo  =  ibufo+1 

if  (ibufo. eq.O)  call  p  lots ( ibuf , 2000 , 4 ) 


c 
c 


19=1 
112  jpm= jdlim 


ymaxr =ymax 

if  (iabs(iout ) .It  .  10)  return 

dtp  =  dt*float( jdout)*  1000  .0 

dtpm=dtp*float( jdlim) 

irult    =    res(l) 

iu    =    iabs(iult) 


if  (iult 
if  (iu  . 
ymin=0 . 
pleny=4 . 
p lenx=6 . 
ymax=ymax* .9  99 
ymaxc=0 . 


.It.    0)       iult    =    0 

t.    1)      irult    =    res(iu) 
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if  (labs (iout ) . eq . 16 .or . iabs (iout )  . eq . 26  )  go  to  171 

do  120  j-1,13 

if  (jnp( j).eq.O)  go  to  121 

120  jdum(j)=j+2 

121  jjnp=13 

if  (j.ne.l3)  jjnp=j-l 

if  ( j . eq . 13 .and . jnp ( 13 ) . eq . 0 )  jjnp=12 

j  jnp2  =  j  jnp+2 

if  (iabs (iout).eq. 10 .or .iabs(iout) .eq.20)  go  to  300 

do  100  isegno  =  3,jjnp2 

do  100  j=l,jpm 

i  =  (isegno-1 )*200+j 

if  (out ( i ) . It . ymin)  ymin  =  out(i) 

100  if  (out (i ) . gt . ymaxc)  ymaxc  =  out(i) 
go  to  170 

171  il=l 
eaoc  =  l  . 

if  (iseg(i9).eq.O)  kk=l 

if    (lseg(i9)  .eq.l  .or  .iseg(i9)  .eq.3)    k.k  =  4 
if    (iseg(i9).eq.2)    kk=5 
173    do    172    i=l,jpm 
ij=kk*100+i 

if    (kk . eq . 5  .and . il  .eq . 2  )    eaoc  =  sq rt ( s tp 1 *pml ) 
if    (out (i j ) *eaoc . It . ymin)    ymin=out ( i j )*eaoc 

172  if    (out ( i j )*eaoc . gt . ymaxc )    ymaxc=out ( i j )*eaoc 
il=il+l 

kk=kk+9 

if  (iseg(i9).eq.3)  kk=5 
if  (kk.eq.lO)  go  to  170 
if  (il.lt. 3)  go  to  173 
170  if  (ymaxc .gt . 10 .*ymax)  ymax=ymaxc 
del=(ymax-ymaxr ) /ymax 
105   ym  =  ymax 

do  101  j=l,15 

if  (ym.lt.l.)  go  to  102 

101  ym  =  ym/10. 

102  rj  =  10.**( j-2)*2. 
i  =  ymax/rj+1.0 

ymax  =  rj*float(i) 

if  (abs (de 1) . It . 0 .0 1 )  ymax=ymaxr 

ymaxr=ymax 

ymi  =  -ymax 

if  ( -ymin . It . ymax)  ymi=-ymax/3 .0 

if  (-ymin. It .ymax/6 .0)  ymi  =  0.0 

ymin  =  ymi 

ys  =  (ymax-ymin)  /  pleny 

xs  =  dtpm/plenx 

k  =  dtpm/12. 

xunit  =  k+1 

call  f scale (-10 .0*xs , ymin, xs ,ys , ymax, Ih  ,0.,0.) 

call  fmove(0. 0,0.0) 

if  (iabs (iout ) .eq . 16 .or . iabs (iout ) .eq . 26 )  go  to  145 
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106 

103 
145 


140 


141 


150 


do  103  1=1,1 
if  (iseg(i). 
Isegno  =  Ise 
if  (isegno. e 
do  106  j  =  1 
ii  =  (isegno 
call  fplot(f 
call  fmove(0 
cont  inue 
if  (iabsdou 
if  (iseg(i9) 
if  (iseg(i9) 
If  (iseg(i9) 
do  140  j=l,j 
ii=k.k*100+j 
call  fplot  ( 
if  (kk.eq.l) 
kk=kk+9 
if  (iseg(i9) 
eaoc= 1 . 
if  (kk.eq.5) 
call  fmove  ( 
do  141  j=l,j 
ii=kk*100+j 
call  fplot  ( 
call  fmove  ( 
if  (kk.eq.l3 
if  (kk.eq.l4 
call  fmove  ( 
call  fplot  ( 
call  fmove  ( 
if  (kk.eq.l3 
if  (kk.eq.l4 
if  (kk.eq.5) 
call  fmove  ( 
call  fplot  ( 
call  fmove  ( 
call  fchar(0 
call  fmove  ( 
call  fchar  ( 
call  fmove  ( 
l=dtpm/xunit 
do  130  i=l,l 
xuse=xunit* ( 


eq .0 .and. i  .  gt  .  1  )  go  to  103 

g(i) 

q  .0 )  isegno  =  3 

-1)*200  +  j 

loat(j)*dtp,out(ii)) 

.,0.) 

t  )  . ne . 1 6 .and. iabs (iout ) . ne .26 )  go  to  150 

.eq.O)  kk=l 

.  eq  .  1 . or . iseg ( 19 ) . eq .3 )  kk=4 

.eq.2)  kk=5 

pm 

f loat( j)*dtp,out(ii)) 
go  to  150 

.eq.3)  kk=5 

eaoc=sqrt(stpl*pml) 
0.,0.) 
pm 

float(j)*dtp,out(ii)*eaoc) 
4 . *xs , 3 .5*ys) 

.or. kk.eq.5)  call  fchar  (0 . , . 1 2 , 9 , 9htop  force) 
)  call  fchar  (0 . , . 12 , 8 , 8ht op  vel.) 
5.*xs,3.56*ys) 
5.4*xs,3.56*ys) 
4.*xs,3.65*ys) 

)  call  fchar  (0 .  ,  .  1 2  ,  9 , 9ht oe  force) 
)  call  fchar  ( 0  .  ,  . 12 , 8 , 8htoe  vel.) 
call  fchar  ( 0 . ,  .  12 , 9 , 9hve 1 . *ea/c) 
5.*xs,3.71*ys) 
5.4*xs,3.71*ys) 
dtp  m+ .3*xs,-.12*ys) 
.,.12,4, 4hmsec) 
dtp  m+ .3*xs , .05*ys) 
0.  ,  .12,3,3hl/c) 
dtpm, 0 . ) 


call 
call 
call 

call 
call 


fplot 
fplot 
fmove 

f  numb 
fmove 
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continue 
call  fplot 
call  fmove 


1-i+l) 
(xuse.O  .  ) 
(xuse ,- .05*y s) 
(xuse-.25*xs,-.2*ys) 

(0.,. 12,0, xuse) 
(xuse  ,  0  .  ) 

(0.,0.) 
(2.8*xs,-.4*ys) 


call  fchar  (0., 

call  fmove  (dtp 

l"dtpm/coli 

do  146  i-1,1 

li-l-l+l 

xu8e"coli*li 

call    fplot 

call    fplot 

call    fmove 

call    fnumb 

call    fmove 
146    continue 

call    fmove 

call    fplot 

call    fmove 

call    fnumb 

call    fmove 

m=pleny+ .001 

do    131    i=l,m 

yuse=ymin+i*ys 

call    fplot 

call    fplot 

call    fmove 

call    fnumb 

call    fmove 
131    continue 

call    fmove 

iout8=iout 

if    (iabs(iout). 

if    (iseg(i9).eq 

if    (iseg(i9).eq 

if    (iseg(i9).eq 

if     (iabs(iout). 

if    (iabs(iout). 

if    (iabs(iout). 

if    (iabs(iout). 

if    (iabs(iout). 

if    (iabs(iout). 

iout=iouts 

call    fmove    ( .7  5 

call  where  (xc, 
160  call  symbol  (xc 

call    fmove    (-3 . 

if    (iabs(iout). 

i9=i9+l 

if    (iabs(iout). 

if    (iabs(iout). 
200    if    (iabs(iout). 

if     (iabs(iout). 

plenx=4 . 

pleny=l .5 

plenmx=l . 

plenmy=2 . 5 
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.12,4,4htime) 
m,0.) 


I 


(xuse,0 , ) 

(xuse ,0 .05*ys) 

(xuse-.35*xs, . l*ys) 

(0.  ,  .12,-l,float(li)) 

(xuse , 0 . ) 

(0.,ymin) 

(-.05*xs,ymin) 

(-.9*xs,ymin-.06*ys) 

(0. ,  .12,2,ymin) 

(0.0,ymin) 

(0 

.  ,yuse) 

(- 

.05*xs ,yuse) 

(- 

.9*xs , yuse-.06 

*ys 

) 

(0 

.,.12,2 ,yuse) 

(0 

.  ,yuse) 

R 
I 
R 
I 
I 


(-XS , ymax-3 .0*y8 ) 


gt.20)  iout=iabs( 
.1 .and.iabs(iout) 
.3 .and.iabs(lout) 
.2.and.iabs(iout) 
eq  .  11  )call  fchar 
eq.l2)call  fchar 
eq.l3)call  fchar 
eq.l4)call  fchar 
eq.l5)  call  fchar 
eq.l6)  call  fchar 

*xs , 4 . 1 *y s) 

yc.f) 

,yc,  .  15 .title, 0. , 
0*xs , ymax+5 .0*ys ) 
eq.l6.or.iabs(iou 

eq.l6.and.iseg(i9 
eq.26  .and.iseg(i9 
It. 20)  go  to  300 
eq.26)  go  to  300 


iout)-10 
.eq.l6)  iout=ll 
.eq.l6)  iout=ll 
. eq  .  1  6 )  iou t  =  12 
(90.  , .12 ,13 , 13hf orce  in  kips) 
(90.  ,  .12,18, IShvelocity  in  ft/ 
(90.  ,.  12,13, 13hstress  inksl) 
(90. ,  .12,17, 17hacceleration  in 
(90.  ,  .12,15, 15hdispl  in  inche 
(90 .  ,  .  1 2 , 15 , 1 5hp ressure  in  ps 


40) 

t). eq.26)  ymax=0.0 

).ne.O)  go  to  112 
).ne.O)  go  to  112 


I 
i 

g) 

4 
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ymax=0 . 

do    201    j=l , jpm 

do    201    i-l,jjnp 

k" Jselec ( i) 

if     ( jselecCD.eq.O)    k  =  i+2 

if     (k.le.2.or.k.gt .15)    go    to    201 

k=>(k-l)*200+j 

if     (out (k) ,gt .ymax)    ymax=out(k) 

201  continue 
ym=ymax 

do  202  j=l,15 

if  (ymax. It. 1.)  go  to  203 

202  ymax=ymax/10 . 

203  r j=10.**( j-2)*2.0 
i=ym/rj+l. 
ymax=r j*f loat (i) 
xs=dtpm/plenx 
ys=ymax/pleny 

call  f scale (-9 .0*xs , -2 .5*ys , xs , ys , ymax, Ih  ,0.,0.) 

nn=n 

if  (nn.gt . jnp( j jnp))  nn=jnp(jjnp) 

salph(l)=0. 

do  206  i=2,jjnp 

jend= jnp(i) 

jbeg=jnp(i-l)+l 

salph(i)=salph(i-l) 

do  206  j=jbeg,jend 
206  salph(i)=salph(i)+alph( j) 

do  204  j=l,jjnp 

i= jselec ( j) 

if  ( jselec(l).eq.O)  i=j+2 

if  (i.le.2.or.i.gt  .15)  go  to  204 

pmy=plenmy*salph( j)/salph(nn) 

pmx=pmy*plenmx/plenmy 

pmy=-pmy*ys 

pmx=-pmx*xs 

call  fmove  (pmx.pmy) 

do  205  k=l , jpm 

kk=(i-l)*200+k 
205  call  fplot  (pmx+f loat (k)*dtp,pmy+out(kk)) 

call  fplot  (pmx+f loat (k )*dtp , pmy ) 

204  continue 

call  fplot  (pmx,pmy) 

call  fmove  (pmx+f loat (k) *dtp , pmy) 

call  fplot  (dtpm.O.) 

call  fmove  ( dtpm+xs*  .  3 , 0  .  ) 

call  fchar  (0 . , . 12 , 12 , 12htime  in  msec) 

call    fmove    (dtpm,0.) 

call    fplot     (dtpm,-.05*ys) 

call    fmove     (dtpm- . 1 2*xs ,- .  2*y s) 

call    fnumb    (0 . , . 12 , 2 , dtpm) 

call  fmove  (dtpm,0.) 

call  fplot  (0.,0.) 


call 
call 
call 
call 
if 


302 


303 
304 

301 
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fplot  (pmxjpmy) 

fmove  (.55*pmx-.3*xs,. 55*pmy+ . I*ys ) 

fchar  (67.5, .12,6, 6hlength) 

fmove  (- .3*xs , . 25*ymax) 


(iabs(iout).eq.21) 
(iabs(iout).eq.22) 
(iabs(iout).eq.23) 
(iabs(iout) .eq .24) 
(iabs(iout).eq.25) 

fmove 

f  numb 

fmove 

fplot 

fmove 

fplot 

fmove 

where 

symbol 

fmove 


call 

call 

call 

call 

call 
(-.9*xs,ymax-.05*ys) 
(0. ,  . 12, 2, y max) 
(0  .  ,ymax) 
(-.05*xs,ymax) 
(0  .  ,ymax) 
(0.,0.) 

(.75*xs,l  .6*ys) 
(xc,yc,f ) 

(xc,yc, .15, title, 0.  ,40) 
(-3.0*xs,ymax+5.0*ys) 
return 


(90.  ,  .12,5,5hf orce) 
(90.,.12,4,4hvel.) 
(90.  ,  .12,6,6hstress) 
(90.,.12,4,4hacc.) 
(90.  ,  .12,6,6hdispl.) 


fchar 

if     (iabs(iout) .eq.22)    call    fchar 

if    (iabs(iout )  .eq.23)    call    fchar 

if    (iabs (iout ) .eq . 24 )    call    fchar 

if    (iabs(iout).eq  .25)    call    fchar 

call 

call 

call 

call 

call 

call 

call 

call 
210    call 

call 
300    if    (iult.eq.O) 

do    301    j=l,5 

big(j)=0. 

do    302    i=l,iult 

k=( j-l)*10+i 

if    (abs(res(k.)).gt.big(j))    big(  j)=abs  (res  (k) ) 

big(j)=big(j)*l.l 

ym=big( j) 

do    303    i=l,15 

if    (ym.lt.l.)    go    to    304 

ym=ym/ 10 . 

prj(j)=10.**(i-2) 

i=big(j)/prj(j)+l. 

blg(j)=prj(j)*float(i) 

plly(l)=4. 

plly(2)=6. 

plly(3)=5. 

plly(4)=3.0 

plly(5)=3. 

if    (big(5).gt.big(4)) 

if    (big(4).gt.blg(5)) 

if    (big(5).gt.big(4)) 

if    (big(4).gt.big(5)) 

do    305    j=l,5 

pys(j)=big(j)/plly(j) 

punit(j)=prj(j)/5. 
305    iunit(j)=big(j)/prj(j)+1.001 

big(l)=big(l)*1.25 

call    fscale    (    9  .0*py s (2  )  ,-9  .0*pys (3  )  , py s ( 2 ) , py s ( 3 ) , big ( 3 ) , Ih 
>0.) 

i3=big(2)/punit(2) 

i2w=l 

do    309    i=l,i3 


■ 
II 


pr j(4)=pr j(5) 
prj(5)=prj(4) 
big(4)=big(5) 
big(5)=big(4) 


H 

p 
p 
p 
p 
p 
p 
p 
p 

p 

,0. 

P 
P 
I 
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xuse=punit(2)*i 
call  fplot  (xus 
call  fploC  (xus 
if  (i.ne.i2w*5) 
I2w-i2w+l 
call  fplot  (xus 
call  fmove  (xus 
call  f numb  ( 0 . , 

309  call  fmove  (xus 
call  fplot  (big 
if  (iunit(3).gt 
i2=big(3)/iunit 
do  308  i=l,i2 
yuse=iunit(3)*i 
call  fplot  (big 
call  fplot  (big 
call  fmove  (big 
call  f numb  ( 0 . , 

308  call  fmove  (big 
call  fplot  (big 
call  fmove  (big 
call  f char  (0. , 
ndo  =  iult 
do  310  j-l,iult 
call  fmove  (res 
call  fchar(0.0, 

310  ndo  =  ndo-1 
call  fmove  (0.0 
call  fscale  (-0 
il=big(l)/punit 
ilw=l 

do  306  i=l,il 
yuse=punit(l)*i 
call  fplot  (0., 
call  fplot  (-.0 
if  (i.ne.ilw*5) 
ilw=ilw+l 
call  fplot  (.05 
fmove  (-.9 
f numb  ( 0 . , 
306  call  fmove  (0., 
fplot  (0., 
fmove  (-.5 
fchar  (0., 


e,0.) 

e,-.05*py8(3)) 
go  to  309 

e,.05*pys(3)) 

e-.25*pys(2),-.2*pys(3)) 

.12,0, xuse) 

e,0.) 

(2),0.) 

.big(3))  iunit(3)=iunit(3)/10.+l 

(3) 


(2) ,yuse) 

(2)+.05*pys(2),yuse) 

(2)+.l*pys(2),yuse-.06*pys(3)) 

.12,0, yuse) 

(2) ,yuse) 

(2),big(3)) 

(2)+.3*pys(2),yuse-.25*pys(3)) 

.12,3,3hf t.) 


(ndo+10)-.06*pys(2),res(ndo+20)-.06*pys(3)) 
.12,1, lbs) 

,0,0) 

.0,0.0*pys(l),pys(2),pys(l),big(l),lh  ,0.,0.) 

(1) 


yus  e) 

5*py s (2 ) , yuse) 
go  to  306 

*pys(2),yuse) 

*pys(2),yuse-.05*pys(l)) 

.12,2, yuse) 

yuse) 

big(l)) 

*pys(2).(ilw-l)*prj(l)-.2*pys(l)) 

.12,4 ,4htons) 
fmove(l .3*pys(2) ,4 .6*pys(l)) 
fchar  (0.  ,  .12,12,12hresistance=x) 
fmove  (3  .4*py s ( 2  )  ,  4  .6*py s (  1  ) ) 
fchar  (0.  ,  .12,8,8hstrok,e  =  s) 
out  original  source  statement 


call 

call 

call 

call 

call 

call 

call 

call 

call 

call 

dummy 

ndo  =  iult 

do  307  j=l,iult 

call  fmove  (res 

call  fchar  (0., 


(ndo+10)-.06*pys(2) ,res(ndo)-.06*pys(l)) 
.12,l,lhx) 


B 
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307  ndo  =  ndo-1 

call  fmove  ( 2 . 3*py s ( 2 ) ,- . 4*py s (  1  ) ) 

call  fchar  (0 . , . 12 , 14 , 14hblows  per  foot) 

call  fmove  (0.0,0.0) 

call  fscale  (-0 .0 ,-5 .0*pys(4) , pys (2) , pys (4 ) , big(4 ) , Ih  ,0.,0.) 

i4=big(4)/punit(4) 

do  311  1=1,14 

yuse=punlt(4)*i 

call  fplot  (0.,yuse) 

call  fplot  (-.05*pys(2),yuse) 

do  316  j=l,10 

xuse=j*prj(4) 

if  (abs(xuse-yuse).lt .0  .001)  go  to  317 

316  continue 
go  to  311 

317  call  fplot  (.05*pys(2),yuse) 
call  fmove  (- .9*pys (2 ) ,yuse- .05*pys (4 ) ) 
call  fnumb  ( 0 . , . 12 , 2 , yuse) 
f y=yuse 

311  call  fmove  (0.,yuse) 
call  fplot  (0.,big(4)) 
call  fmove  (- .4*pys ( 2 ) , f y- .2*pys (4) ) 
call  fchar  (0 . , . 12 , 3  ,  3hksi  ) 
call  fmove  ( 1 .2*py s ( 2 ) , 2  .  8*pys ( 4) ) 
call  fmove  ( . 9*py s ( 2 ) , 2  .8*py s (4  )  ) 
call  f char (0 . , . 12 , 20 , 20hcompressive  stress=c) 
dummy  out  original  source  statement 
call  fmove  ( 3 .4*py s ( 2  )  ,  2  .  8*pys (4)  ) 
call  fchar  (0 . , . 12 , 16 , 16htens ile  stress=*) 
ndo  =  iult 
do  313  j=l,iult 

call  fmove  ( res (ndo+10 )- . 06*py s ( 2 ) ,abs ( res (ndo+30) )-.06*pys(4)) 
call  fchar  (0 .0 , 0  .  12 , 1 , Ih* ) 

313  ndo  =  ndo-1 
call  fmove  (0.,0.) 
i2w=l 

do  314  i=l,i3 
xuse=punit (2 )*i 
call  fplot  (xuse,0.) 
call  fplot  (xuse ,- .05*pys (4) ) 
if  (i.ne.i2w*5)  go  to  314 
i2w-i2w+l 

call  fplot  (xuse , . 05*py s (4  )  ) 
call  fmove  (xuse- . 25*pys ( 2 ) ,- .2*pys ( 4) ) 
call  fnumb  (0  .  , . 12 , 0 , xuse ) 

314  call  fmove  (xuse,0.) 
call  fplot  (big(2),0.) 
call  fplot  (big(2),big(4)) 
call  fplot  (0.,blg(4)) 
do  315  j=l,iult 
call  fmove  ( res ( j+10 )- .06*py s ( 2 ) , res ( j+40 )- . 06*py s (4 ) ) 

315  call  fchar  (0  .0  ,  .  1 2  , 1 , Ihc) 
call  fmove  (  .  7 5*py s ( 2  )  , 3  .2*pys (4 ) ) 
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call  where  (xc,yc,f) 
320  call  symbol  (xc, y c , . 1 5 , t it le ,0 . , 40) 

call  plot  (4.5,0.0,999) 

return 

end 

subroutine  fnumb  (ang, s ize , ndec , var ) 

call  where (xc , yc , f ) 

call  number  (xc, yc, s ize , var , ang, ndec) 

return 

end 

subroutine  fplot  (x,y) 

common /chip  It /xino,yino,xsc,ysc,ymaxo 

xn=x/xsc 

yn=y /y sc 

call  plot  (xn,yn,2) 

return 

end 

subroutine  fmove  (x,y) 

common /chip  It /xino,yino,xsc,ysc, ymaxo 

xn=x/xsc 

yn=y /ysc 

call  plot  (xn,yn,3) 

return 

end 

subroutine  fchar  (ang , size , length , is tr ) 

dimension  istr(lO) 

call  where (xc , yc  ,  f  ) 

call  symbol  (xc,yc, s ize, istr, ang, length) 

return 

end 

subroutine  fschar  (ang, size , no) 

dimension  ia ( 1 ) 

if  (no. It. 10)  ia(l)=0 

if  (no.lt .50. and. no. gt. 9)  ia(l)  =  l 

if  (no.lt .71 .and. no. gt. 49)  ia(l)=2 

if  (no.gt.70)  ia(l)=5 

call  symbol  (xc , yc , size , ia , ang ,-1 ) 

return 

end 

subroutine    fscale     (xin, yin, xs , y s , ymax, iaxis , xun, yun) 

common /chip  It /xino,yino,xsc,ysc, ymaxo 

xsc=xs 

ysc=ys 

xino=xin/xsc 

yino=y in/ysc 

call  plot  (-xino ,-yino ,-3) 

ymaxo=ymax/y sc 

return 

end 

subroutine  sumout (result, ityph,iult,iw,iex) 

dimension  result ( 100 ), iex( 40 ) 
11    format(50h    r  ult   bl  ct  stroke  (ft) 
1        20h   i,j    energy  bl  rt) 


minstr   i,j    maxstr. 


c 
c 
c 

c 


12  format(50h 
1        20h 

21  format(50h 
1        20h 

22  format(50h 
1        20h 

31  forniat(50h 
1        14h 

32  format(50h 
1        14h 

13  format(lh 

1        13, 

33  format(lh, 
1        13, 

'.  subheading 

if (ityph.g 
write  (6,1 
write  (6,1 
go  to  200 

101  ifdtyph.g 
write  (6,2 
write  (6,2 
go  to  200 

102  write  (6,3 
write  (6,3 

200   continue 
result 
sexmax, 

open  en 
do  300  1=1 
lb  =  resu 
if (lb.lt. 0 

if (ityp 

1  result( 

2  lex(l*4 
closed 
if (ityp 

1  result( 

2  iex(l*4 
al rs tm 
if (ityp 

1  result( 

2  iex(i*4 
300  continue 

return 

end 

subroutine 

return 

end 

subroutine 

return 

end 
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tons     bpf   down    up 
ft-kip    bpm) 
r  ult   bl  ct  strke    be 
l,j    energy  bl  rt) 

tons     bpf     ft    ps 
ft-kip    bpm) 
r  ult   bl  ct  stroke(eq. 
l,j    energy) 

tons     bpf        ft 
ft-kip) 
,f7.1,i7,2f6.1,f8.2,lh(,i2 
lh),2f6.1) 

f7.1,i7,fl2.2,f8.2,lh(,l2, 
lh),2f6.1) 

s;  main  heading  printed  in 
t.l)go  to  101 
1) 
2) 

t.2)go  to  102 

1) 

2) 

1) 
2) 

contains  (in  order)  rult,b 
blow rate, en thru,b.c.p,upst 

d  diesel 

,lult 

lt(i+10)+.5 

.or.lb.gt.999  9)lb=9999 

h.eq.l)write  ( 6 , 1 3 )result ( 

1+80), resu It (1+30), lex (1*4 

-l),iex( 1*4), result (1+60), 

end  diesel 

h.eq.2)wrlte  ( 6  ,  1  3  )result ( 

1+70) , resu It (1+30), lex (1*4 

-l),iex( 1*4), result (1+60), 

h.eq.3)write  ( 6 , 33 ) result ( 
1+30), lex (1*4-3), lex (1*4-2 
-l),iex( 1*4), result (1+60) 


number 


ksi  k 

p  mins  tr  i , j  maxs 
1       ksi  k 

)    mins  t r   1 , j    maxs 

ksi  k 

,lh,,l3,lh),f7.2,lh( ,1 
Ih, ,i3,lh),f7 .2,lh(,i2 
main  program 


I 


si, 

"  I 

si. 

P 
si, 

2,ih,r 

.Ih,, 


let , downs  troke,sexmin, 
roke 


l),ib,result(i+20), 

-3),iex(i*4-2),result(i+40 

result(l+50) 

i),ib, result(l+20), 

-3),iex(i*4-2),result(i+40) 

result(i+50) 

i),ib, result(i+20), 
),result(i+40). 


plot 


316 


//eor 
#eof 


subroutine  plots 

return 

end 

subroutine  where 

return 

end 

subroutine  symbol 

return 

end 
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Appendix  B^  -  PILE  Input  Form 


^ 
fl 
^ 
fl 


A  complete  input  form  is  provided.   The  necessary 
parameters  must  be  inputted  within  the  specified  spaces  and 
in  the  sequence  provided.   Additional  copies  of  the  form 
should  be  made  for  future  use. 
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Appendix  £  -  Examples 


Two  examples  are  provided  which  Illustrate  most  of  the 
options  available  to  the  user  of  PILE.   The  examples  may 
also  be  used  to  verify  computations  after  initial  implemen- 
tation of  the  program. 
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Example  1  -  Cohesionless  Soils 

The  pile  considered  is  a  close-end  steel-pipe 
pile,  80  ft  long  and  12.75  in.   in  diameter  driven  into 
cohesionless  soil  strata. 

The  subsurface  conditions  are  modeled  into  four 
strata  with  the  following  parameters  assumed  or  derived 
from  established  correlations: 

(a)  stratum  thickness  (XL): 
XL^  =   8.0  ft 

XL^  =  52.0  ft 

XL^  =   8.0  ft 

XL,  =  30.0  ft 
4 

(b)  standard  penetration  values  (N): 
N   =   4 

N2  -  16 

N^  =  10 

N,  =  20 
4 

(c)  angle  of  internal  friction  (PHI): 
(b^  =  25 

<t'2  =  32 
4)3  =  30 
^  =  33   . 

(d)  unit  weight  of  soil  (GAM) 
Y^  =  110  lbs/ft"^ 

(e)  critical  depth  ratio  (ZC) 


ZC.  =  5.0 
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The  pile  is  driven  with  a  Vulcan  II  hammer.   The  five 
dynamic  formulas  will  be  computed  for  final  set  and  blow 
counts • 

A  wave  equation  analysis  will  be  performed.   The  pile- 
soil  system  is  discretized  into  20  equal  elements  of  4.0  ft. 
The  following  parameters  are  assumed: 

(a)  elastic  modulus  (E): 

E  (steel)  =  30000.  ksi 

(b)  unit  weight  of  material  (RP): 
RP  =  492.  lbs/ft^ 

(c)  soil  quake  (QS): 

QS  =  0.10  in.  (all  layers  +  point) 

(d)  Smith  damping  factor  (SJ): 
SJ,  =  .10 

SJ^  =  .05 
SJ^  =  .10 

SJ,  =  .15 

4 

(e)  cushion  stiffness 
plywood  =  3192.  ksi 

(f)  hammer  efficiency  (EF) 
EF  =  0.60 
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w  e  a  p  -  wave  equation  analysis  for  piles 
1980  version 


example  1 


pile  description 


0  80.0 
127.7  127.7 
30000.  30000, 
gamma  (Ib/cu  ft)  492.0  492.0 
stroke   (equiv.)   3.0  ft,    efficiency      .60    ,   impact   velocity   10.8  ft/s 


X  bel.  top  (ft) 
a  (sq.  in.) 
e  (ksi) 


hammer  model  vulc.   1 


element 

weight 

stiffness 

coeff . 

number 

(kips) 

(k/in) 

restitution 

1 

5.000 

cap 

1.000 

129520.3 

1.000 

cushion 

3192.0 

.250 

pile  top 

1.000 

pile  properties 


pile  length=  80.  ft.,  area(at  top)=  127.7  s-in 

e.  moduKat  top)=30000.  ksi.,  spec.  wt.(at  top)=  492.  Ibs/cu  ft 


weight 

stif fn. 

pdamp. 

splice 

soil-s 

soil-d 

quake 

l.b.t. 

(kips) 

(k/in) 

(ks/ft) 

(kips) 

(s/ft) 

(in) 

(ft) 

1 

1.745 

79797. 

0 

0 

.003 

.100 

.100 

4.0 

2 

1.745 

79797. 

0 

-5000. 

.006 

.100 

.100 

8.0 

3 

1.745 

79797. 

0 

-5000. 

.011 

.050 

.100 

12.0 

4 

1.745 

79797. 

0 

-5000 . 

.022 

.050 

.100 

16.0 

5 

1.745 

79797. 

0 

-5000. 

.032 

.050 

.100 

20.0 

6 

1.745 

79797. 

0 

-5000. 

.034 

.050 

.100 

24.0 

7 

1.745 

79797. 

0 

-5000. 

.034 

.050 

.100 

28.0 

8 

1.745 

79797. 

0 

-5000. 

.034 

.050 

.100 

32.0 

9 

1.745 

79797. 

0 

-5000. 

.034 

.050 

.100 

36.0 

10 

1.745 

79797. 

0 

-5000. 

.034 

.050 

.100 

40.0 

11 

1.745 

79797. 

0 

-5000. 

.034 

.050 

.100 

44.0 

12 

1.745 

79797. 

0 

-5000 . 

.034 

.050 

.100 

48.0 

13 

1.745 

79797. 

0 

-5000. 

.033 

.050 

.100 

52.0 

14 

1.745 

79797. 

0 

-5000 . 

.026 

.050 

.100 

56.0 

15 

1.745 

79797. 

0 

-5000. 

.020 

.050 

.100 

60.0 

16 

1.745 

79797. 

0 

-5000. 

.014 

.100 

.100 

64.0 

17 

1.745 

79797. 

0 

-5000. 

.016 

.100 

.100 

68.0 

18 

1.745 

79797. 

0 

-5000. 

.019 

.050 

.100 

72.0 

19 

1.745 

79797. 

0 

-5000. 

.031 

.050 

.100 

76.0 

20 

1.745 

79797. 

0 

-5000. 

.041 

.050 

.100 

80.0 

toe 

.485 

.150 

.100 
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coefficient  of  restitution  of  soil 


1.000 


options  and  specifications 


phi 

1.60 

s-damping 

smith 

rwt  (kips) 

-0 

iout 

-0 

p-damping 

0 

soil  dist.  no. 

-2 

ifuel 

1 

j  skin 

0 

tdel  (sec.) 

-0 

iostr 

0 

j  toe 
time  incr. 

(ms 

0 
)  .088 

temax  (ms) 

-0 

rult= 

124.4,  at  toe= 

60.3 

tons 

0 

table  of  extrema,  time  step 

Ono. 

fmin, jmn 

fmax 

,  jmx 

strmin, jsn 

strmax. 

jsx 

vmax 

jvx 

dmax, jdx 

(k) 

(k) 

(ksi) 

(ksi) 

(f/s) 

(in) 

1 

0,  0 

493.8 

,  66 

0,   0 

3.87 

66 

2.5 

,153 

.204,201 

2 

-118.5 

147 

496.0, 

69 

-.93 

,147 

3.88, 

69 

2.3, 

72 

.203,201 

3 

-211.8 

144 

494.4 

.  72 

-1.66 

144 

3.87 

.  72 

2.3 

,  72 

.202,195 

4 

-276.7 

,144 

493.7 

75 

-2.17 

,144 

3.87, 

75 

2.3, 

75 

.201,195 

5 

-302.0 

144 

491.2 

,  78 

-2.37 

,144 

3.85 

,  78 

2.3 

,  78 

.199,195 

6 

-319.0 

141 

487.9 

81 

-2.50 

,141 

3.82, 

81 

2.3, 

81 

.195,198 

7 

-316.9 

138 

490.2 

,  81 

-2.48 

138 

3.84 

81 

2.3 

,  84 

.192,201 

8 

-298.8 

135 

493.2, 

84 

-2.34 

,135 

3.86, 

84 

2.3, 

87 

.188,201 

9 

-274.5 

132 

495.5 

,  87 

-2.15 

132 

3.88 

87 

2.2 

,  90 

.184,204 

10 

-295.6 

153 

497.2 

90 

-2.32 

153 

3.89, 

90 

2.2, 

93 

.179,207 

11 

-297.2 

150 

497.6 

,  93 

-2.33 

150 

3.90 

93 

2.2 

,  93 

.175,192 

12 

-280.2 

147 

496.0, 

96 

-2.19 

,147 

3.89, 

96 

2.5 

,120 

.173,234 

13 

-263.7, 

144 

488.7 

,  99 

-2.07 

144 

3.83 

99 

2.8 

120 

.174,237 

14 

-239.2 

141 

456.2 

,102 

-1.87 

,141 

3.57 

102 

2.6 

120 

.175,237 

15 

-229.9 

138 

423.3 

,192 

-1.80 

138 

3.32 

,192 

3.2 

,108 

.174,231 

16 

-166.9 

,138 

423.7 

,195 

-1.31 

,138 

3.32 

195 

3.5 

,111 

.175,231 

17 

-77.9 

153 

404.2 

,  90 

-.61 

153 

3.17 

90 

3.6 

,111 

.175,231 

18 

-82.3 

,150 

372.5 

90 

-.64 

,150 

2.92, 

90 

3.3 

,111 

.174,234 

19 

-43.6 

,150 

300.3 

,117 

-.34 

,150 

2.35 

117 

3.1 

,102 

.174,240 

20 

0, 

0 

282.9 

,117 

0 

0 

2.22 

,117 

3.4 

,120 

.174,240 

1 

example 

0 

summary 

r 

ult  bl  ct 

stroke 

[eq.) 

minstr  i 

,j   ^ 

ixstr 

i.j 

ene 

rgy 

tons    bpf 

1 

:t 

ksi 

ksi 

ft- 

■kip 

,   124.4 

162 

3.00 

-2.5( 

)(  6, 

141) 

3.90(11,  9: 

J) 

3.2 
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The  results  of  the  first  example  for  predominantly 
cohesionless  soils  show  the  following: 

(1)  Ultimate  capacity.   The  ultimate  point,  shaft, 

and  total  capacity,  and  total  penetration  are 

given  as  a  result  of  the  static  analysis  on 

pg.  325. 

Q   =   60.29  tons 
P 

Q   =   64.08  tons 
s 

Q   =  124.38  tons 
u 

L   =   80.0  feet 

(2)  Dynamic  formulas.   The  available  formulas  are 
listed  on  pages  326  and  327  with  accompanying 
criteria  for  driving  which  include 
permanent  set  and  blow  counts. 

(3)  Wave  equation  analysis.   The  output  illustrates 
the  model  used  and  the  results.   The  most 
pertinent  results  consist  of  the  maximum  stresses 
per  pile  element  and  the  blow  counts  for  the 
specified  resistance.   These  results  are  shown 
are  shown  on  page  329. 
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Example  2  -  Cohesive  Soils 

The  pile  considered  is  a  precast  concrete  pile,  12  in. 
X  12  in.  and  65  ft  long,  driven  into  cohesive  soil  strata. 
A  static  analysis  is  only  considered. 

The  subsurface  conditions  consists  of  a  top  layer  of 
soft  clay  underlain  by  a  stiff  marl.   Standard  penetration 
values  (N)  were  not  provided.   Undrained  shear  strength  con- 
ditions were  assumed  and  the  following  parameters  used: 

(a)  stratum  thickness  (XL): 
XL^  =  45.0  ft 

XL,  =  60.0  ft 

(b)  undrained  shear  strength  (CU): 
CU^  =  0.2  ton/ft"^ 

CU2  =  2.0  ton/ft"^ 

(c)  o    adhesion    factor     (ALPHA): 
ALPHA^    =     1.0 

ALPHA      =    0.5 

(d)  bearing  capacity  factor  (NC): 
NC  =  9.0  (both  layers) 
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Similarly,  the  ultimate  capacity  is  divided  into  point, 
shaft,  and  total  ultimate  capacity.   Values  of  total  pene- 
tration, ultimate  point,  shaft,  and  total  pile  capacity  are 
shown  as  output  on  page  333. 

L   =   65.0  feet 

Q   -   18.0  tons 


Q   =   95.6  tons 
s 

Q   =  113.6  tons 
u 
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